TSSPL2 T/S SPOOLER FLAG-PAGE R MACRO V05. 05 
Table of contents 



Wednesday 18-Jan-S9 12: 15 



2 

3 

4 

5 

6 

7 

8 

9 
10 
11- 
12- 
13- 
14- 
15- 
16- 
17- 
18- 
19- 



- 10 



FLGPAG ■ 
CNVDEC - 
CNVR50 - 
BORDER ■ 
PRTBUF - 
GCHROF ■ 
EDTTOD • 
DIVIDE • 
LEAP 

JULIAN • 
DOW 

EDTDAT ■ 
SETSTN - 
GTLICN - 
SPLSFF - 
SPLSWF - 
FNDSD - 
5 X 7 Chi 



Print a flag page 

Convert a number to an ascii decimal number 

Convert a RAD-50 word to ascii 

Print a border line of the flag page 

Print a 7 X 5 line of the flag page 

Get the offset into the character table <CHARS) 

Edit the time of day 



— Divide 32-bit qty by 16-bit 

— Function to determine if this is a leap 

— Get day of the year for a given date 

— Get the day of the week 
— • Print the current date 

■ KtiON emt to copy site name 

■ Get site information EMT 
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• Locate SDCB for spooled channel 
iracter tables 



year 



into overlay 

for device 
flag for device 
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. TITLE TSSPL2 T/S SPOOLER FLAG-PAGE ROUTINES 

COPYRIGHT (C) 1988 

S&H COMPUTER SYSTEMS, INC. 
NASHVILLE. TENNESSEE 

THESE ROUTINES IMPLEMENT AUTOMATIC PRODUCTION OF A FLAG PAGE 
FOR FILES SENT TO SPOOLED DEVICES. 

. CSECT TSSPL2 
TSSPL2: . RAD50 /SP2/ 

MACROS 

SPACE = 40 



i OCTAL VALUE FOR THE SPACE CHAR. 



Macro to begin a new character in the bit pattern character table 



. MACRO BEGINC 

. DSABL CRF 

BIT = 1 

CI = O 

C2 = O 

C3 = O 

C4 = O 

C5 = O 

. ENABL CRF 
. ENDM BEGINC 



Macro to perform the or operation for the macro to build the bit 
pattern for a charater 



MACRO DOOR CNUM 

. DSABL CRF 

C'CNUM = C'CNUM ! BIT 

. ENABL CRF 
ENDM DOOR 



Macro to build the bit pattern for a character 



MACRO LINE PIC 
. DSABL CRF 
COL == 

. IRPC X, <P1C> 
. DSABL CRF 
COL = COL + 1 

. IIF NE>«"X>-SPACE> DOOR \COL 
. ENABL CRF 
. ENDR 

BIT = BIT*2 
. ENABL CRF 
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. ENDM LINE 



Macro to end a character in the bit pattern character table 



. MACRO ENDCHR 




. DSABL 


CRF 


. BYTE 


CI 


. BYTE 


C2 


. BYTE 


C3 


BYTE 


C4 


. BYTE 


C5 


. ENABL 


CRF 


. ENDM ENDCHR 





Macro definition to call global routines residing in mapped system regions. 



MACRO OCALL 



ENTADD 



. IF 



. ENDC 
CALL 
. WORD 
. ENDM 



B, ENTADD 

.ERROR ; OCALL SPECIFIED WITH NO ENTRY ADDRESS 

. MEXIT 



OVRHC 
ENTADD 



iCALL THE OVERLAY HANDLER 
i SPECIFY THE ENTRY POINT 



Global references and definitions 

. GLOBL CSIBUF. CSIBND. SD*WID, SDFLAG, SITNAM, SFUSER, SD*RSV 

. GLOBL LUNAME, SFFILE, LPROG, LPROJ, SFLGPG, SYTIMH 

. GLOBL SYTIML. TKISEC. SYSDAT, FLGPAG, EMTXIT, SETSTN 

. GLOBL SFCB, SFCBND, CORUSR, SFUSER, CHNNUM, SFCHAN 

. GLOBL SFCBSZi SFSDCB. SDFLAG, SD*WID, SD*FLG, SPLSFF 

. GLOBL SPLSWF, TSXSIT, GTLICN, VALADW, EMTBLK, SETC, URO 
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SBTTL FLGPAG — Print a flag page 



FLGPAG causes a flag page to be printed for each file copied to 
spooled device if that device has this feature enabled 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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000002 
000004 
000006 
000010 
000012 
000014 

000016 
000022 
000030 
000032 
000036 
000040 



010346 
010246 
010446 
010546 
010046 
010146 

012704 
032760 
001403 
012702 
000402 
012702 



OOOOOOG 
OOOOOOG OOOOOOG 

000204 

000120 



Inputs 
RO = 
Rl = 

FLGPAG: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

MOV 
BIT 
BEQ 
MOV 
BR 
11*: MOV 



Beginning of the spool device control block (SDCB) 
Beginning of the spool file control block <SFCB) 



} SAVE REGISTERS 



R3, -(SP) 
R2, -<SP) 
R4, -(SP) 
R5, -<SP) 
RO, -<SP) 
Rl, -(SP) 



#CSIBUF, R4 ;GET ADDRESS OF STOLEN BUFFER 

#SD*WID, SDFLAG(RO) i 132 COLUMNS? 

11* ; BR IF NOT 

#132. ,R2 iSET PAGE WIDTH 

12$ 

#80. ,R2 J SET PAGE WIDTH 



Print the top border with site name 



000044 
000050 
000054 



000060 
000062 
000064 
000070 
000074 
000100 
000102 
000104 
000106 
000110 
000114 
000116 
000122 
000124 
000126 
000130 
000132 
000136 
000142 
000144 
000146 
000150 



016705 
012703 
004767 



011601 
010603 
112743 
162706 
116100 
006300 
010046 
006300 
062600 
062700 
010005 
062705 
114543 
020500 
101375 
010305 
062705 
124527 
001003 
020503 
001406 
000772 



004322 

004314' 

000666 



#SITNAM, R5 
(R5)+, #200 
13* 

#SITNAM+1, R5 
SITLEN, R5 
#SITNAM, R3 
BORDER 



Print user name (if knouin) 



12*: 


MOV 


13*: 


CMPB 




BNE 




SUB 


2*: 


MOV 




MOV 


4*: 


CALL 



000040 
000016 
OOOOOOG 



OOOOOOG 
000014 



000014 
000040 



1*: 

2*: 
22*: 



MOV 

MOV 

MOVB 

SUB 

MOVB 

ASL 

MOV 

ASL 

ADD 

ADD 

MOV 

ADD 

MOVB 

CMP 

BHI 

MOV 

ADD 

CMPB 

BNE 

CMP 

BEQ 

BR 



(SP),R1 

SP,R3 

#' ,-(R3) 

#14. ,SP 

SFUSER(Rl), 

RO 

RO, -(SP) 

RO 

(SP)+, RO 

#LUNAME, RO 

RO. R5 

#12. ,R5 



RO 



-(R5), - 
R5, RO 
1* 

R3, R5 
#12. ,R5 
-(R5),# 
21* 
R5, R3 
3* 



(R3) 



GET END OF SITE NAME 

END OF NAME? 

BR IF NOT 

GET LENGTH OF SITE NAME 

Get length of site name 

GET SITE NAME 

PRINT TOP BORDER 



GET POINTER INTO SFCB 

POINT TO USER NAME BUFFER 

SAVE ROOM FOR TERMINATER 

RESERVE THAT BUFFER 

GET JOB INDEX # 

GET POINTER TO USER NAME FOR THIS JOB 

(MULTIPLY JOB INDEX BY 6) 



iGET END OF USER NAME 

MOVE NAME INTO BUFFER 

DONE? 

BR IF SO 

GET END OF USER NAME 

IS THIS A SPACE? 

BR IF NOT 

IS THE WHOLE NAME BLANK? 

BR IF SO 
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58 


000152 


005205 




59 


000154 


112715 


000200 


60 


000160 


160305 




61 


000162 


000401 




62 


000164 


005005 




63 


000166 


005001 




64 


000170 


004767 


001036 


65 


000174 


062706 


000016 


66 








67 








68 








69 


000200 


011601 




70 


000202 


010603 




71 


000204 


162706 


000016 


72 


000210 


112743 


000200 


73 


000214 


010305 




74 


000216 


016100 


000002G 


75 


000222 


004767 


000364 


76 


000226 


016100 


OOOOOOG 


77 


000232 


004767 


000354 


78 


000236 


012701 


000001 


79 


000242 


160305 




80 


000244 


004767 


000762 


81 


000250 


062706 


000016 


82 








83 








84 








85 


000254 


011601 




86 


000256 


116100 


OOOOOOG 


87 


000262 


012705 


000003 


88 


000266 


016001 


OOOOOOG 


89 


000272 


010603 




90 


000274 


162706 


000024 


91 


000300 


112743 


000200 


92 


000304 


112743 


000135 


93 


000310 


010046 




94 


000312 


004767 


000224 


95 


000316 


060005 




96 


000320 


1 1 2743 


000054 


97 


000324 


012600 




98 


000326 


016001 


OOOOOOG 


99 


000332 


004767 


000204 


100 


000336 


060005 




101 


000340 


112743 


000133 


102 


000344 


005001 




103 


000346 


004767 


000660 


104 


000352 


062706 


000024 


105 








106 








107 








108 


000356 


011601 




109 


000360 


012705 


000007 


110 


000364 


010603 




HI 


000366 


162706 


000016 


112 


000372 


112743 


000200 


113 


000376 


116101 


OOOOOOG 


114 


000402 


006201 
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21*: 



3*: 
6*: 



INC 


R5 


MOVB 


#200, <R5> 


SUB 


R3, R5 


BR 


6* 


CLR 


R5 


CLR 


Rl 


CALL 


PRTBUF 


ADD 


#14. ,SP 



Print the file name 



4$: 



MOV 


<SP),R1 


MOV 


SP,R3 


SUB 


#14. ,SP 


MOVB 


#200, -<R3) 


MOV 


R3, R5 


MOV 


SFFILE+2<R1),R0 


CALL 


CNVR50 


MOV 


SFFILE<R1),R0 


CALL 


CNVR50 


MOV 


#1,R1 


SUB 


R3, R5 


CALL 


PRTBUF 


ADD 


#14. ,SP 



Print the PPN 

MOV ( SP ) , R 1 

MOVB SFUSER<R1),R0 

MOV #3, R5 

MOV LPROG < RO ) , R 1 

MOV SP, R3 

SUB #20. , SP 

MOVB #200, -(R3) 

MOVB #':,-<R3) 

MOV RO, -<SP) 

CALL CNVDEC 

ADD RO, R5 

MOVB #',,-<R3) 

MOV ( SP ) +, RO 

MOV LPR0J(R0),R1 

CALL CNVDEC 

ADD RO, R5 

MOVB #'C,-<R3) 

CLR Rl 

CALL PRTBUF 

ADD #20. , SP 

Print line number 

MOV (SP),R1 

MOV #7, R5 

MOV SP, R3 

SUB #14. .SP 

MOVB #200, -<R3) 

MOVB SFUSER(R1),R1 

ASR Rl 



i TERMINATE NAME 

; GET NAME LENGTH 

NO NAME BUT NEED A BLANK LINE (CENTERING) 
SAY SINGLE HIGH & WIDE 
PRINT USER NAME 
FINISHED W/ BUFFER 



GET POINTER INTO SFCB 

POINT TO FILE NAME BUFFER 

RESERVE THAT BUFFER 

TERMINATE BUFFER 

GET END OF FILE NAME 

GET SECOND HALF OF FILE NAME 

CONVERT TO RAD-50 

GET FIRST HALF OF FILE NAME 

CONVERT TO RAD-50 

SAY DOUBLE HIGH & WIDE 

GET LENGTH OF FILE NAME 

PRINT FILE NAME 

FINISHED W/ BUFFER 



GET POINTER INTO SFCB 

GET JOB INDEX # 

SET MINIMUM STRING LENGTH 

GET PROGRAMMER NUMBER 

POINT TO PPN BUFFER 

RESERVE THAT BUFFER 

TERMINATE BUFFER 

END OF STRING 

SAVE RO 

GET NUMBER 

ADD LENGTH OF NUMBER 

i RESTORE RO 

; GET PROJECT NUMBER 

iADD LENGTH OF NUMBER 

SAY SINGLE HIGH & WIDE 

PRINT PPN 

FINISHED WITH BUFFER 



GET POINTER INTO SFCB 

GET MINIMUM LENGTH OF LINE 

POINT TO PPN BUFFER 

RESERVE THAT BUFFER 

TERMINATE BUFFER 

GET JOB INDEX # 

GET LINE NUMBER 
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115 
116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 



151 
152 
153 



000404 
000410 
000412 
000416 
000420 
000424 
000426 
000430 
000434 



000440 
000442 
000446 
000452 
000454 
000460 
000464 
000466 
000472 

000476 
000502 
000506 

000514 
000516 
000520 
000522 
000524 
000526 
000530 

000532 
000535 
000540 
000541 



004767 
060005 
012700 
114043 
020027 
101374 
005001 
004767 
062706 



010603 
162706 
012743 
010305 
004767 
004767 
160305 
004767 
062706 

112724 
112714 



012601 
012600 
012605 
012604 
012602 
012603 
000207 



114 
105 
040 



000132 



000541 ' 



000532 



000576 
000016 



5$: 



CALL 


CNVDEC 


ADD 


RO, R5 


MOV 


#LINEND, RO 


MOVB 


-<R0),-(R3) 


CMP 


RO, #LINSTR 


BHI 


5* 


CLR 


Rl 


CALL 


PRTBUF 


ADD 


#14. ,SP 



CONVERT TO DECIMAL 

ADD LENGTH OF # TO LENGTH OF PRT STRING - 

GET END OF LINE STRING 

GET THE REST OF THE LINE 

ALL IN BUFFER? 

BR IF NOT 

SAY SINGLE HIGH «< WIDE 

PRINT PPN 

FINISHED WITH BUFFER 



Print the bottom border with timei day* date 



000050 
000200 

001756 
001270 

000254 
000050 

000014 
000200 



MOV 

SUB 

MOV 

MOV 

CALL 

CALL 

SUB 

CALL 

ADD 

MOVB 
MOVB 
OCALL 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



SP,R3 
#40. , SP 
#200, -(R3) 
R3, R5 
EDTDAT 
EDTTOD 
R3, R5 
BORDER 
#40. , SP 

#14, <R4) + 
#200, <R4) 
SFLGPG 

(SP)+. Rl 
<SP>+, RO 
(SP>+,R5 
(SP)+, R4 
<SP)+, R2 
(SP)+, R3 



111 
040 



116 
075 



LINSTR: .ASCII /LINE = / 



LINEND: 



. EVEN 



GET POINTER TO TIME, DAY, DATE BUFFER 

RESERVE THAT BUFFER 

TERMINATE THAT BUFFER 

SAVE BEGINNING OF THAT BUFFER 

GET DATE AND DAY 

GET TIME OF DAY 

GET LENGTH OF PRINT STRING 

PRINT BOTTOM BORDER 

DELETE TIME, DAY, DATE BUFFER 

NEW PAGE 
TERMINATE BUFFER 
PRINT BUFFER 

; RESTORE REGISTERS 
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SBTTL CNVDEC — Convert a number to an ascii decimal number 



2 








3 








4 








5 








6 








7 








S 








9 








10 








11 


000542 


010246 




12 








13 


000544 


005002 




14 








15 


000546 


005000 




16 


000550 


071027 


000012 


17 


000554 


062701 


000060 


18 


000560 


110143 




19 


000562 


005202 




20 


000564 


010001 




21 


000566 


001367 




22 


000570 


020227 


000001 


23 


000574 


003003 




24 


000576 


112743 


000060 


25 


000602 


005202 




26 


000604 






27 


000604 


010200 




28 


000606 


012602 




29 


000610 


000207 




30 









CNVDEC 



Inputs: 

Rl = Number to convert to decimal 

R3 == End of the buffer to hold the ascii number 
Outputs: 

RO = Length of the number 



SAVE R2 



SET UP FOR DIV 

GET LEAST SIGNIFICANT DIGIT 

MAKE IT ASCII 

PUSH ONTO STACK 

INC # OF CHARS. PRINT THIS PASS 

SET UP FOR NEXT DIV 

UNTIL NOTHING LEFT 

PRINT AT LEAST 2 DIGITS. ? 

BR IF YES 

ELSE DO SO 

INC # OF CHARS. 

GET LENGTH OF NUMBER 
RESTORE R2 



CNVDE 


C: MOV 


R2, -<SP) 




CLR 


R2 


1*: 


CLR 


RO 




DIV 


#10. ,R0 




ADD 


#'0,R1 




MOVB 


R1,-<R3) 




INC 


R2 




MOV 


RO, Rl 




BNE 


1* 




CMP 


R2, #1 




BGT 


2* 




MOVB 


#'0, -(R3> 


;?*• 


INC 


R2 


C^if* . 


MOV 


R2, RO 




MOV 


<SP)+, R2 




RETURN 
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000612 
000614 

000616 
000620 
000622 
000626 
000630 
000632 
000634 
000640 
000642 
000644 
000650 
000652 
000654 
000660 
000662 
000664 
000670 
000670 
000672 
000674 

000676 
000701 
000704 
000707 
000712 
000715 
000720 
000723 
000726 
000731 
000734 
000737 
000742 
000745 



012604 
012601 
000207 

040 
103 
106 
111 
114 
117 
122 
125 
130 
044 
060 
063 
066 
071 



000050 



010146 
010446 

010001 

005000 

071027 

010104 

010001 

005000 

071027 000050 

005704 

001402 

116443 

005701 

001402 

116143 

005700 

001402 

116043 



000676 



000676 ' 



000676 



101 
104 
107 
112 
115 
120 
123 
126 
131 
056 
061 
064 
067 



. SBTTL 
CNVR50 



CNVR50 



Convert a RAD-50 u»ord to ascii 



Inputs: 



RO = Word to convert 

R3 = Address of end of buffer to hold ascii value 



CNVR50: 



1*: 



2*: 



3*: 



MOV 
MOV 

MOV 

CLR 

DIV 

MOV 

MOV 

CLR 

DIV 

TST 

BEQ 

MOVB 

TST 

BEQ 

MOVB 

TST 

BEQ 

MOVB 

MOV 
MOV 
RETURN 



R 1 , - ( SP ) 
R4, -(SP) 

RO, Rl 

RO 

#50, RO 

R1,R4 

RO, Rl 

RO 

#50, RO 

R4 

1$ 

R50TBL(R4) 

Rl 

2* 

R50TBL(R1) 

RO 

3« 

R50TBL(R0) 

<SP)+, R4 
<SP)+, Rl 



(R3) 



•<R3) 



■<R3) 



SAVE REGISTERS 



GET WORD TO CONVERT 

ZERO HIGH WORD FOR DIV 

GET LAST CHAR. 

SAVE LAST CHAR. 

SET UP FOR NEXT DIV 

ZERO HIGH WORD FOR DIV 

GET 2nd AND 3rd CHARS. 

IS CHAR. A SPACE 

BR IF SO 

MOVE IN THREE CHARS. 

IS CHAR. A SPACE 

BR IF SO 

MOVE IF TWO CHARS. 

IS CHAR. A SPACE 

BR IF SO 



RESTORE REGISTERS 



102 
105 
110 
113 
116 
121 
124 
127 
132 
040 
062 
065 
070 



R50TBL: .ASCII / ABCDEFOHIJKLMNOPQRSTUVWXYZ*. 0123456789/ 



. EVEN 
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I 



1 

2 








3 
4 
5 








6 
7 








8 








9 








10 








11 


000746 


010046 




12 


000750 


010146 




13 


000752 


010246 




14 


000754 


062705 


000004 


15 


000760 


010546 




16 


000762 


160205 




17 


000764 


005405 




IS 


000766 


006205 




19 








20 


000770 


012701 


001222' 


21 


000774 


012702 


000003 


22 


001000 


010500 




23 


001002 


004767 


000166 


24 


001006 


020127 


001232' 


25 


001012 


103402 




26 


001014 


012701 


001222' 


27 


001020 


112124 




28 


001022 


077011 




29 


001024 


011600 




30 


001026 


020227 


000002 


31 


001032 


001021 




32 


001034 


112724 


000040 


33 


001040 


112724 


000040 


34 


001044 


162700 


000004 


35 


001050 


004767 


000120 


36 


001054 


112324 




37 


001056 


121327 


000200 


38 


001062 


001372 




39 


001064 


112724 


000040 


40 


001070 


112724 


000040 


41 


001074 


000405 




42 


001076 


004767 


000072 


43 


001102 


112724 


000040 


44 


001106 


077005 




45 


001110 


010500 




46 


001112 


004767 


000056 


47 


001116 


020127 


001232' 


48 


001122 


103402 




49 


001124 


012701 


001222' 


50 


001130 


112124 




51 


001132 


077011 




52 


001134 


112724 


000012 


53 


001140 


112724 


000015 


54 


001144 


077263 




55 


001146 


112724 


000012 


56 


001152 


112724 


000012 


57 


001156 


112724 


000012 



. SBTTL BORDER — Print a border line of the flag page 
BORDER - PRINT HEADER LINE AT BEGINNING OF PAGE 



Inputs: 

R2 = 
R3 = 
R4 = 
R5 = 

BORDER : MOV 
MOV 
MOV 
ADD 
MOV 
SUB 
NE6 
ASR 



11*: 
1*: 



3*; 



31*: 
32*: 



4*: 
41*: 



5* 
6* 
7* 



8*: 



Page width 

Address of site name 
Address of stolen buffer 
Length of site name 



MOV 

MOV 

MOV 

CALL 

CMP 

BLO 

MOV 

MOVB 

SOB 

MOV 

CMP 

BNE 

MOVB 

MOVB 

SUB 

CALL 

MOVB 

CMPB 

BNE 

MOVB 

MOVB 

BR 

CALL 

MOVB 

SOB 

MOV 

CALL 

CMP 

BLO 

MOV 

MOVB 

SOB 

MOVB 

MOVB 

SOB 

MOVB 

MOVB 

MOVB 



RO, -<SP) 
Rl, -(SP> 
R2, - < SP > 
#4, R5 
R5, -(SP) 
R2, R5 
R5 
R5 

#TSXSTR, Rl 

#3. R2 

R5, RO 

TSTEND 

R1,#STREND 

3* 

#TSXSTR,R1 

( R 1 ) +.• ( R4 ) + 

RO, 1* 

< SP ) , RO 

R2, #2 

4* 

#' , (R4)+ 

#' . <R4)+ 

#4, RO 

TSTEND 

<R3)+, <R4) + 

(R3)>#200 

31* 

#' . <R4)+ 

#' I <R4)+ 

5* 

TSTEND 

#' . (R4)+ 

RO, 4* 

R5, RO 

TSTEND 

R1.#STREND 

8* 

#TSXSTR, Rl 

<R1)+, <R4)+ 

RO, 6* 

#12, <R4)+ 

#15, <R4> + 

R2, 11* 

#12, <R4)+ 

#12, (R4)+ 

#12, <R4)+ 



i SAVE REGISTERS 



ADD 2 SPACES ON SIDES OF SITE NAME 

SAVE SITE NAME LENGTH 

GET LENGTH OF LINE - SITE NAME 



GET ADDR OF STRING TO PRINT 

SOB COUNTER 

GET # CHARS. TO PRINT 

TEST FOR END OF BUFFER 

END IF STRING? 

BR IF NOT 

ELSE RE- INI T STRING POINTER 

MOVE HEADER INTO BUFFER 

GET LENGTH OF SITE NAME 
MIDDLE LINE? 
BR IF NOT 
SPACE OVER 

GET ACTUAL LENGTH OF SITE NAME 
TEST FOR END OF BUFFER 
MOVE IN SITE NAME 
END OF SITE NAME? 

SPACE OVER 



i TEST FOR END OF BUFFER 
iMOVE IN SPACES 

;GET # CHARS. TO PRINT 

i TEST FOR END OF BUFFER 

J END IF STRING? 

J BR IF NOT 

;ELSE RE-INIT STRING POINTER 

i MOVE HEADER INTO BUFFER 



i 
i 
€ 
I 
€ 



TSSPL2 


T/S SPOOLER FLAG-PAGE R 


MACRO V05. 05 Wednesday 


18-Jan-S9 


BORDER 


— Prin 


t a bord 


er line of the flag page 






58 














59 


001162 


005726 






TST 


<SP) + 


60 














61 


001164 


012602 






MOV 


< SP ) +, R2 


62 


001166 


012601 






MOV 


(SP)+, Rl 


63 


001170 


012600 






MOV 


(SP)+, RO 


64 


001172 


000207 






RETURN 




65 














66 


001174 


020427 


177766G 


TSTEND; 


CMP 


R4. #<CSIBN 


67 


001200 


103407 






BLO 


1* 


68 


001202 


112714 


000200 




MOVE 


#200, <R4) 


69 


001206 








OCALL 


SFLGPG 


70 


001214 


012704 


OOOOOOG 




MOV 


#CSIBUF, R4 


71 


001220 


000207 




1*: 


RETURN 




72 














73 


001222 


124 


123 


130 TSXSTR: 


. ASCII 


/TSX-Plus/ 




001225 


055 


120 


154 








001230 


165 


163 








74 


001232 






STREND: 






75 















15 Page 5-1 



; BR IF NOT 

; TERMINATE BUFFER 

iMOVE BUFFER INTO SPOOL BUFFER 

iRE-INIT POINTER TO BUFFER 



< 
i 
I 
f 

< 
( 
I 
i 
i 
i 
I 
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PRTBUF — Print a 7 X 5 line of the flag page 



I* 



1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


001232 


010246 




13 








14 


001234 


010346 




15 


001236 


005705 




16 


001240 


001513 




17 


001242 


006305 




18 


001244 


010546 




19 


001246 


006305 




20 


001250 


062605 




21 


001252 


005701 




22 


001254 


001401 




23 


001256 


006305 




24 


001260 


160205 




25 


001262 


005405 




26 


001264 


006205 




27 


001266 


012700 


000001 


28 


001272 


010146 




29 








30 








31 








32 


001274 


010502 




33 


001276 


005702 




34 


001300 


001405 




35 








36 








37 








38 


001302 


004767 


177666 


39 


001306 


112724 


000040 


40 


001312 


077205 




41 








42 


001314 


016603 


000002 


43 


001320 


010346 




44 








45 








46 








47 


001322 


004767 


000230 


48 


001326 


116246 


001646' 


49 


001332 


010246 




50 


001334 


006302 




51 


001336 


006302 




52 


001340 


062602 




53 


001342 


012703 


000005 


54 








55 








56 








57 


001346 


004767 


177622 



. SBTTL PRTBUF — Print a 7 X 5 line of the flag page 

PRTBUF - PRINT A LINE OF THE FLAGPAGE 

Inputs: 

Rl = Desired height and width. 

R2 = Page width 

R3 = Address of buffer being printed 

R4 = Address of stolen buffer 

R5 = Lenth of the line 

i SAVE R2 



SAVE ADDRESS OF PRINT BUFFER 

ANY TEXT ON THIS LINE? 

BR IF NO 

GET WIDTH OF LINE 



DHDW? 

BR IF NO 

GET # WIDTH OF DHDW 

GET # OF BLANKS IN LINE 

GET # SPACES TO SKIP 
SET INITIAL BIT TO TEST 
SAVE HEIGHT AND WIDTH 



PRTBUF: 


MOV 


R2, -<SP) 




MOV 


R3, -<SP) 




TST 


R5 




BEQ 


99* 




ASL 


R5 




MOV 


R5, -(SP) 




ASL 


R5 




ADD 


(SP)+, R5 




TST 


Rl 




BEQ 


1* 




ASL 


R5 


1*: 


SUB 


R2, R5 


2$: 


NEG 


R5 




ASR 


R5 


22*: 


MOV 


#1;R0 


21*: 


MOV 


Rl, -<SP) 


; Prin 


t the 


line of outp 


3*: 


MOV 


R5. R2 


31*: 


TST 


R2 




BEG 


43* 


i Loop 


to center the lin 


9 

4*: 


CALL 


TSTEND 


41*: 


MOVB 


#' , (R4)+ 




SOB 


R2, 4* 


43*: 


MOV 


2(SP),R3 




MOV 


R3, -<SP) 



COUNTER FOR SOB LOOP 
IS COUNTER ZERO? 
BR IF SO 



; TEST FOR END OF BUFFER 
; MOVE IN SPACE 



;GET ADDRESS OF PRINT LINE 
iSAVE IT 



Get the next character to print 



5*: 



CALL 


GCHROF 




MOVB 


CHARS <R2), 


-(SP) 


MOV 


R2, -(SP) 




ASL 


R2 




ASL 


R2 




ADD 


(SP)+, R2 




MOV 


#5, R3 





GET OFFSET INTO CHAR. TABLE 

SAVE CHAR. 

GET OFFSET INTO BIT PATTERN TABLE 



; INIT COUNTER FOR SOB LOOP 



i 
I 
f 



i Print one row of an individual character 

i 

6*: CALL TSTEND i TEST FOR END OF BUFFER 



I 
I 

( 

c 
I 

i 
i 
i 
4 

i 
i 
i 
i 

< 
I 

I 






i 

f 

t 

€ 
i 

< 

I 
I 
i 

i 
i 

4 



TSSPL2 


T/S SPOOLER FLAG-PAGE R 


PRTBUF 


— Prin 


t a 7 X 


5 line o 


58 


001352 


111646 




59 


001354 


130062 


003556 ' 


60 


001360 


001002 




61 


001362 


112716 


000040 


62 


001366 


111624 




63 


001370 


005701 




64 


001372 


001401 




65 


001374 


111624 




66 


001376 


005726 




67 


001400 


005202 




68 


001402 


077317 




69 








70 








71 








72 


001404 


005726 




73 


001406 


012603 




74 


001410 


005203 




75 


001412 


121327 


000200 


76 


001416 


001410 




77 


001420 


112724 


000040 


78 


001424 


005701 




79 


001426 


001402 




SO 


001430 


112724 


000040 


81 


001434 


010346 




82 


001436 


000731 




S3 


001440 


1 1 2724 


000012 


84 


001444 


112724 


000015 


85 


001450 


005716 




86 


001452 


001402 




87 


001454 


005016 




88 


001456 


000706 




89 








90 








91 








92 


001460 


005726 




93 


001462 


106300 




94 


001464 


100302 




95 


001466 


000422 




96 








97 








98 








99 


001470 


005201 




100 








101 


001472 


112724 


000012 


102 


001476 


112724 


000012 


103 


001502 


112724 


000012 


104 


001506 


112724 


000012 


105 


001512 


004767 


177456 


106 


001516 


112724 


000012 


107 


001522 


112724 


000012 


108 


001526 


112724 


000012 


109 


001532 


077121 




110 








111 








112 








113 


001534 


112724 


000012 


114 


001540 


112724 


000012 
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7*: 



71*: 



8*: 



MOVB 


<SP),-(SP) 


BITB 


RO, CHRTBL<R2) 


BNE 


71* 


MOVB 


#' . (SP) 


MOVB 


(SP), (R4) + 


TST 


Rl 


BEQ 


8* 


MOVB 


<SP), (R4) + 


TST 


(SP) + 


INC 


R2 


SOB 


R3, 6* 



GET CHAR. TO PRINT 

SPACE OR LETTER? 

BR IF LETTER 

ELSE WANT TO PRINT SPACE 

PRINT DESIRED CHAR. 

DOUBLE WIDE? 

BR IF NOT 

ELSE PRINT LETTER 

CLEAR CHAR. TO PRINT 

POINT TO NEXT COLUMN 

PRINT NEXT COLUMN 



Done with 1 row of 1 character, next char 





TST 


(SP) + 




MOV 


(SP)+,R3 




INC 


R3 




CMPB 


(R3),#200 




BEQ 


9* 




MOVB 


#' , (R4)+ 




TST 


Rl 




BEQ 


81* 




MOVB 


#' , (R4)+ 


81*: 


MOV 


R3, -(SP) 




BR 


5* 


9*: 


MOVB 


#12, (R4)+ 




MOVB 


#15, (R4) + 




TST 


(SP) 




BEQ 


91* 




CLR 


(SP) 




BR 


3* 



IN PRINT LINE 
PRINT LINE 



LETTERS 



Next Row 



91*: 



TST 


(SP) + 


ASLB 


RO 


BPL 


21* 


BR 


98* 



POP OFF LETTER 

GET CURRENT LETTER 

GET NEXT LETTER IN 

END OF LINE? 

BR IF YES 

ELSE SPACE BETWEEN 

DHDW? 

BR IF NOT 

MAKE DOUBLE WIDE 

SAVE POINTER INTO PRINT LINE 

GO PRINT NEXT LETTER 

NEW LINE 

DOUBLE HIGH? 

BR IF NOT 

CLR HEIGHT COUNTER 

MAKE DOUBLE HIGH 



POP OFF DHDW COUNTER 

GET NEXT ROW 

IF ANOTHER ROW, GO PRINT IT 



i 

€ 



No text was on this line; print a 7 line feeds. 

99*: INC Rl : INC Rl TO USE FOR DHDW SOB 

97*: MOVB #12, (R4) + 

MOVB #12, (R4) + 

MOVB #12, (R4) + 

MOVB #12, (R4) + 

CALL TSTEND 

MOVB #12, (R4) + 

MOVB #12, (R4) + 

MOVB #12, (R4) + 

SOB Rl,97* 



TEST FOR END OF BUFFER 



Done with line 



98*: 



MOVB 
MOVB 



#12, (R4) + 



iDO IT AGAIN IF DHDW 



iNEW LINE 
i NEW LINE 



1 

I 

i 
I 
t 

i 
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PRTBUF — Print a 7 X 5 line of the flag page 

115 001544 112724 000012 MOVB #12i <R4)+ j NEW LINE 

116 001550 005726 TST (SP)+ J POP OFF PRINT LINE ADDRESS 
117 

118 001552 012602 MOV <SP)+,R2 i RESTORE R2 

119 001554 000207 RETURN 
120 



I 



TSSPL2 
OCHROF 

i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
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— Get the offset into the character table (CHARS) 



33 



34 

35 
36 



001556 
001560 
001564 
001566 
001572 
001574 
001600 
001602 
001606 
001610 
001614 
001616 
001622 
001624 
001630 
001632 
001636 
001640 
001644 



001646 
001651 
001654 
001657 
001662 
001665 
001670 
001673 
001676 
001701 
001704 
001707 
001712 
001715 
001720 
001723 
001726 
001731 
001734 
001737 
001742 
001745 
001747 



111302 
120227 
002003 
112702 
000424 
120227 
003003 
162702 
000416 
120227 
002003 
162702 
000410 
120227 
003403 
112702 
000402 
162702 
000207 



040 
043 
046 
051 
054 
057 
062 
065 
070 
073 
076 
101 
104 
107 
112 
115 
120 
123 
126 
131 
134 
137 
173 
176 



000040 
000105 
000140 
000040 
000173 
000100 
000176 
000105 
000072 



041 
044 
047 
052 
055 
060 
063 
066 
071 
074 
077 
102 
105 
110 
113 
116 
121 
124 
127 
132 
135 
140 
174 
077 



. SBTTL GCHROF — Get the offset into the character table (CHARS) 
GCHROF - Get offset into character table for a byte value 



Inputs: 

R3 



Address of the byte 



Outputs: 

R2 = Offset into character table 



GCHROF: MOVB 
CMPB 
BGE 
MOVB 
BR 

CMPB 
BGT 
SUB 
BR 

CMPB 
BGE 
SUB 
BR 

CMPB 
BLE 
MOVB 
BR 
SUB 
RETURN 



2*: 



21*: 



3*: 



4*: 
9*: 



042 
045 
050 
053 
056 
061 
064 
067 
072 
075 
100 
103 
106 
111 
114 
117 
122 
125 
130 
133 
136 

175 



CHARS: 



ASCII 



(R3>,R2 

R2, #' 

2$ 

#69. , R2 

9* 

R2, #'^ 

21$ 

#' .R2 

9* 

R2, #'{ 

3* 

#64. > R2 

9* 

R2, #"" 

4* 

#69. , R2 

9* 

#58. , R2 



GET BYTE VALUE 

IS IT < THAN A SPACE 

BR IF NOT 

UNPRINTABLE; SET OFFSET INTO TABLE 

DONE 

IS IT <= AN "^" 

BR IF NOT 

ELSE, SET OFFSET INTO TABLE 

DONE 

IS IT < A "<" 

BR IF NOT 

ELSE, SET OFFSET INTO TABLE 

DONE 

IS IT > A "~" 

BR IF NOT 

ELSE, SET OFFSET INTO TABLE 

DONE 

SET OFFSET INTO TABLE 



! "#«7.&' ( )*+, -. /0123456789: ; <C=>?e I 



ASCII /ABCDEFGHIJKLMN0PQRSTUVWXYZC\3-^„^/ 



i 
f 

I 

i 



ASCII /-C!}*^?/ 
EVEN 



i 
i 

f 
t 

€ 

I 

C 

i 
t 
I 
i 



TSSPL2 


T/S SPOOLER FLA 


G-PAGE R 


EDTTOD 

1 
2 


— Edit 


the time of day 


3 
4 
5 
6 


001754 


010046 




7 


001756 


010246 




8 


001760 


010446 




9 


001762 


010546 




10 


001764 


016704 


OOOOOOG 


11 


001770 


016705 


OOOOOOG 


12 


001774 


016702 


OOOOOOG 


13 


002000 


004767 


000054 


14 


002004 


012702 


000074 


15 


002010 


004767 


000044 


16 


002014 


004767 


176522 


17 


002020 


112743 


000072 


18 


002024 


004767 


000030 


19 


002030 


004767 


176506 


20 


002034 


112743 


000072 


21 


002040 


010501 




22 


002042 


004767 


176474 


23 


002046 


012605 




24 


002050 


012604 




25 


002052 


012602 




26 


002054 


012600 




27 


002056 


000207 
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SBTTL EDTTOD — Edit the time of day 



f 
I 

c 



EDTTOD IS CALLED TO EDIT THE TIME OF DAY. 
ALL REGISTERS ARE PRESERVED. 



EDTTOD: MOV 


RO, -<SP) 


MOV 


R2, -<SP) 


MOV 


R4, -<SP) 


MOV 


R5, -(SP) 


MOV 


SYTIMH, R4 


MOV 


SYTIML, R5 


MOV 


TKISEC, R2 


CALL 


DIVIDE 


MOV 


#60. , R2 


CALL 


DIVIDE 


CALL 


CNVDEC 


MOVB 


#': , -<R3) 


CALL 


DIVIDE 


CALL 


CNVDEC 


MOVB 


#': ,-<R3) 


MOV 


R5, Rl 


CALL 


CNVDEC 


MOV 


<SP)+,R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R2 


MOV 


<SP)+, RO 


RETURN 





GET HIGH-ORDER VALUE 

GET LOW-ORDER VALUE 

Get # clock ticks per second 

Get # seconds past midnight 

DIVIDE BY 60 TO SPLIT INTO SEC S< MIN 

PRINT SECONDS 
PUT IN COLON SEPARATOR 
GET # MINUTES & # HOURS 
PRINT MINUTES VALUE 
PUT IN COLON SEPARATOR 
GET # HOUR VALUE 
PRINT # HOURS 



€ 

( 
( 

€ 
I 

I 
« 



TSSPL2 
DIVIDE 

i 

S 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 
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002060 
002062 
002064 
002070 
002072 
002074 
002076 
002100 
002102 
002104 
002106 
002110 
002112 
002114 



010346 
005001 
012703 
006305 
006104 
006101 
020102 
103402 
160201 
005205 
005303 
100367 
012603 
000207 



000037 



. SBTTL DIVIDE — Divide 32-bit qty by 16-bit 

SUBROUTINE DIVIDE IS CALLED TO DIVIDE THE 32-BIT QUANTITY 

IN R4 (HIGH ORDER) AND R5 (LOW ORDER) BY THE 16-BIT 

QUANTITY IN R2. ON RETURN THE QUOTIENT IS IN R4-R5 

AND THE REMAINDER IS IN Rl. ALL OTHER REGISTERS ARE PRESERVED. 



INITIALIZE REMAINDER 

GET SHIFT COUNT 

SHIFT BIT OUT OF LOW ORDER 

SHIFT THROUGH HIGH ORDER 

INTO RO 

GOT ENOUGH TO SUBTRACT YET? 

BR IF NOT 

SUBTRACT DIVISOR 

INCREASE QUOTIENT 

COUNT # BITS SHIFTED 

BR IF MORE TO DO 



DIVIDE: 


MOV 


R3, -<SP) 




CLR 


Rl 




MOV 


#31. ,R3 


1*: 


ASL 


R5 




ROL 


R4 




ROL 


Rl 




CMP 


Rl, R2 




BLO 


2* 




SUB 


R2. Rl 




INC 


R5 


2*: 


DEC 


R3 




BPL 


1* 




MOV 


(SP)+, R3 




RETURN 





I 
i 
i 

i 



I 
€ 
f 
< 

C 
i 

€ 

i 

I 
i 
ft 
I 

i 



( 
I 
( 
c 
I 
c 
c 
I 
{ 
( 
I 
I 

i 
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DIVIDE — Divide 32-bit qty by 16-bit 



1 






2 






3 






4 


000037 




5 


001740 




6 


036000 




7 






8 






9 






10 






11 






12 






13 






14 






15 






16 






17 






18 






19 






20 






21 






22 






23 






24 






25 






26 






27 






28 






29 






30 






31 






32 002116 


032700 


000003 


33 002122 


001402 




34 002124 


000241 




35 002126 


000207 




36 






37 






38 






39 002130 


010046 




40 002132 


010146 




41 002134 


042700 


177740 


42 002140 


062700 


003664 


43 002144 


010001 




44 002146 


005000 




45 002150 


071027 


000144 


46 






47 002154 


005701 




48 002156 


001005 




49 002160 


032700 


000003 


50 002164 


001402 




51 002166 


000241 




52 002170 


000401 




53 002172 


000261 




54 002174 


012601 




55 002176 


012600 




56 002200 


000207 





i Miscellaneous date related routines 



YEAR* 

DAY* 

MONTH* 



= 000037 
= 001740 
= 036000 

DSABL GBL 

SBTTL LEAP 



YEAR PART OF DATE WORD <YEAR - 1972) 
DAY FART OF DATE WORD 
MONTH PART OF DATE WORD 



— Function to determine if this is a leap year 



LEAP 

Function to determine if a year is a leap year 



Inputs: 
Outputs: 



RO contains date in RT-11 format 

Carry set if leap year* carry clear if not 



Leap years have 366 days, add Feb 29; non-leap years have 365 days. 
Leap year rule: 

If year is not evenly divisible by 4. it is not a leap year. 
If year is evenly divisible by 4. it is a leap year - 
except if evenly divisible by 100, it is not - 
except if evenly divisible fay 400, it is after all. 
Thus, in 400 years there will be 

303 non-leap years 110595 days 
9/ leap years 35502 days 



146097 / 400 = 365.2425 avg days/year 
That means a year is 365 days, 5 hr, 49 min and 12 sec. 

First do a fast check to eliminate 75% of years 

LEAP: 

1*: 



BIT 
BEQ 
CLC 
RETURN 



#3, RO 
2* 



; POSSIBLE LEAP YEAR? 

; BR TO FURTHER CHECKS IF MAYBE 

i IF NOT MULTIPLE OF 4, THIS IS NOT A LEAP YEAR 



If year is multiple of 4, then need to check further 



2*: 



5*: 
9*: 



MOV 


RO, -<SP) 


MOV 


R1,-<SP) 


BIC 


#^C<YEAR*>, RO 


ADD 


#1972. ,R0 


MOV 


RO, Rl 


CLR 


RO 


DIV 


#100. ,R0 


; QUOTIENT GOES IN RO 


TST 


Rl 


BNE 


5* 


BIT 


#3, RO 


BEQ 


5* 


CLC 




BR 


9* 


SEC 




MOV 


(SP)+, Rl 


MOV 


<SP)+, RO 


RETURN 





iSAVE REGISTERS 

;GET RID OF ALL BUT YEAR 
i ADD BACK BASE YEAR 
iSET FOR DIVIDE 

; BREAK INTO CENTURIES 
m REMAINDER IN Rl 
; IS THIS A NEW CENTURY? 
; IF NOT, 00 SAY THIS IS A LEAP YEAR 
,• IS THIS YEAR A MULTIPLE OF 400? 
i IF SO, GO SAY THIS IS A LEAP YEAR 
; 100, 200, 300 MULTIPLES ARE NOT LEAP YEARS 

i 4 AND 400 MULTIPLES ARE LEAP YEARS 
; RESTORE REGISTERS 



i 

4 

( 
i 
I 
( 
i 
< 
i 
i 

€ 
i 
4 

I 
I 



i 
f 



( 
I 

C 

< 
i 
I 
< 
I 
I 
( 
« 
( 
C 



TSSPL2 
JULIAN 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
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— Get day of the year for a given date 
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002202 
002204 
002206 
002210 
002212 
002214 
002220 
002224 
002226 
002232 
002234 
002236 
002242 
002244 
002246 
002250 
002252 
002254 
002260 
002264 
002266 
002270 
002272 
002274 



002276 
002304 
002312 
002320 



010246 
010346 
010046 
005002 
010003 
072327 
020327 
002404 
004767 
103001 
005202 
012700 
005303 
003402 
062002 
000774 
012603 
042703 
072327 
060302 
010200 
012603 
012602 
000207 



000037 
000036 
000037 
000037 



. SBTTL JULIAN — Get day of the year for a given date 

JULIAN 

Returns the day of the year for a given date 



177766 
000003 

177664 



002276 ' 



176037 
177773 



Inputs: 
Outputs: 



JULIAN: MOV 
MOV 
MOV 
CLR 
MOV 
ASH 
CMP 
BLT 
CALL 
BCC 
INC 

1*: MOV 

2*: DEC 
BLE 
ADD 
BR 

3«: MOV 
BIC 
ASH 
ADD 
MOV 
MOV 
MOV 
RETURN 



RO contains date in RT-11 format 

RO contains day of the year (1-366; Jan 1 is day 



R2» -<SP) 

R3, -<SP) 

RO, -<SP) 

R2 

RO, R3 

#-10. , R3 

R3, #3 

1* 

LEAP 

1* 

R2 

#10*, RO 

R3 

3* 

(R0)+, R2 

2* 

(SP)+,R3 

#'^C<DAY*>, R3 

#-5, R3 

R3, R2 

R2, RO 

<SP)+, R3 

<SP)+, R2 



1) 



CLEAR RESULT COUNTER 

GET COPY OF DATE 

SHIFT MONTH INTO LOW BITS 

PAST FEBRUARY? 

NO, DON'T WORRY ABOUT LEAP YEAR 

>FEB, SEE IF LEAP YEAR (REQ'S DATE IN RO) 
IF NOT LEAP YEAR, FEB HAS 28 DAYS 
IF LEAP YEAR, AND PAST FEB, ADD FEB 29 
POINT TO MONTH LENGTH TABLE 
DON'T ADD IN CURRENT MONTH 
DONE WITH PAST MONTHS? 
ADD MONTH TO TOTAL 
LOOP UP TO CURRENT MONTH 
GET DATE BACK 

CLEAR OUT ALL BUT DAY BITS 
SHIFT DAY TO LOW BITS 
ADD DAYS THIS MONTH TO GET TOTAL 
RETURN RESULT IN RO 



000034 000037 

000037 000036 

000037 000036 

000036 000037 



; Table of # days per month 
10*; . uiord 31. , 28. , 31. , 



30. , 31. , 30. , 31. , 31. , 30. , 31. , 30. , 31. 



t 



4 
f 
I 
I 
t 
t 
t 
I 
( 
t 

i 
t 

I 
( 

I 
t 
f 



TSSPL2 


T/S SPOOLER FLAG-PAGE R 


MACRO 


DOW 

1 

2 


— Get 


the day 


of the week 


3 
4 
5 
6 










7 










8 


002326 


010146 






9 


002330 


010246 






10 


002332 


010046 






11 


002334 


004767 


177642 




12 


002340 


005300 






13 


002342 


012602 






14 


002344 


042702 


177740 




15 


002350 


062702 


002376 ' 




16 


002354 


111201 






17 


002356 


060001 






18 


002360 


005000 






19 


002362 


071027 


000007 




20 


002366 


010100 






21 


002370 


012602 






22 


002372 


012601 






23 


002374 


000207 






24 










25 










26 










27 


002376 


006 


001 


002 




002401 


003 


004 


006 




002404 


000 


001 


002 




002407 


004 


005 


006 




002412 


000 


002 


003 




002415 


004 


005 


000 


28 


002420 


001 


002 


003 




002423 


005 


006 


000 




002426 


001 


003 


004 




002431 


005 


006 


001 




002434 


002 


003 




29 










30 
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SBTTL DOW 



— Get the day of the meek 



DQW 

returns the day of the uteek Sun=0*Mon=lj 



Sat =6 



Inputs: 
Outputs: 



RO contains system date in RT-11 format 
RO contains weekday Sun-Sat == 0-6 



DOW: 



MOV 

MOV 

MOV 

CALL 

DEC 

MOV 

BIC 

ADD 

MOVE 

ADD 

CLR 

DIV 

MOV 

MOV 

MOV 

RETURN 



R 1 , - ( SP ) 

R2, -(SP> 

RO, -<SP) 

JULIAN 

RO 

(SP)+, R2 

#'^C<YEAR*>> R2 

#10*, R2 

(R2), Rl 

RO, Rl 

RO 

#7, RO 

R1,R0 

(SP)+, R2 

<SP)+, Rl 



SAVE DATE 

GET DAY OF THE YEAR 

ADJUST DAY TO INDEX 

RETRIEVE DATE 

MASK OUT TO YEAR ONLY 

POINT INTO BEGINNING DAY OF YEAR TABLE 

GET BASE DAY FOR YEAR IN QUESTION 

ADD OFFSET TO DAY IN QUESTION 

SET FOR DIVIDE 

MODULUS OUT WEEKS 

RETURN REMAINDER AS DAY OF WEEK 



i Table of days on which years start 1972-2003 (valid range of RT-11 dates) 

' Jan 1, 1972 was a Saturday 

10*: BYTE 6, 1, 2, 3, 4, 6, 0, 1, 2, 4, 5, 6, 0, 2.. 3, 4, 5, i 1972-1989 



BYTE 



1, 2, 3, 5, 6, 0, 1, 3, 4, 5, 6, 1, 2, 3 



1990-2003 



EVEN 



TSSPL2 


T/S SPOOLER FLAG-PAGE R 


EDTDAT 

i 
2 


— Prin 


t the current da 


3 
4 
5 
6 


002436 


010046 




7 


002440 


010146 




8 


002442 


010246 




9 


002444 


010446 




10 


002446 


010546 




11 


002450 


016700 


OOOOOOG 


12 


002454 


010046 




13 


002456 


006300 




14 


002460 


012702 


000005 


15 


002464 


005001 




16 


002466 


006100 




17 


002470 


006101 




18 


002472 


077203 




19 


002474 


010046 




20 


002476 


005301 




21 


002500 


010146 




22 








23 


002502 


016601 


000004 


24 


002506 


042701 


177740 


25 


002512 


062701 


000110 


26 


002516 


004767 


176020 


27 


002522 


016601 


000004 


28 


002526 


042701 


177740 


29 


002532 


062701 


003664 


30 


002536 


005000 




31 


002540 


071027 


000144 


32 


002544 


010001 




33 


002546 


004767 


175770 


34 


002552 


112743 


000040 


35 


002556 


112743 


000054 


36 








37 


002562 


016600 


000002 


38 


002566 


012702 


000005 


39 


002572 


005001 




40 


002574 


006100 




41 


002576 


006101 




42 


002600 


077203 




43 


002602 


004767 


175734 


44 


002606 


112743 


000040 


45 








46 


002612 


012601 




47 


002614 


006301 




48 


002616 


016104 


002714' 


49 


002622 


016102 


002716' 


50 


002626 


114243 




51 


002630 


020204 




52 


002632 


101375 




53 


002634 


112743 


000040 


54 


002640 


112743 


000054 


55 








56 


002644 


005726 




57 


002646 


012600 
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. SBTTL EDTDAT — Print the current date 

EDTDAT IS CALLED TO PRINT THE CURRENT DATE. 
ALL REGISTERS ARE PRESERVED. 



EDTDAT: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ASL 
MOV 
CLR 

1*: ROL 
ROL 
SOB 
MOV 
DEC 
MOV 

! PRINT YEAR 
MOV 
BIC 
ADD 
CALL 
MOV 
BIC 
ADD 
CLR 
DIV 
MOV 
CALL 
MOVE 
MOVB 

i PRINT DAY 
MOV 
MOV 
CLR 

2*: ROL 
ROL 
SOB 
CALL 
MOVB 

; PRINT MONTH 
MOV 



RO, -<SP) 

R1,-(SP) 

R2, -(SP) 

R4, -<SP) 

R5, -<SP) 

SYSDAT, RO 

RO, -(SP) 

RO 

#5/ R2 

Rl 

RO 

Rl 

R2, 1* 

RO/ -<SP) 

Rl 

R1,-<SP) 



3*: 



ASL 
MOV 
MOV 
MOVB 
CMP 
BHI 
MOVB 
MOVB 
PRINT DAY 
TST 
MOV 



4(SP),R1 

#<-^C37>>Rl 

#72. >R1 

CNVDEC 

4(SP),R1 

#-^C<YEAR*>. Rl 

#1972. ,R1 

RO 

#100. , RO 

RO, Rl 

CNVDEC 

#' ,-(R3) 

#', ,-<R3) 
NUMBER 

2<SP)>R0 

#5, R2 

Rl 

RO 

Rl 

R2, 2« 

CNVDEC 

#' ,-<R3) 
NAME 

(SP)+, Rl 

Rl 

MONTAB < R 1 ) , R4 

M0NTAB+2<R1),R2; 

-(R2), -<R3) 

R2, R4 

3* 

#' ,-<R3> 

#', ,-<R3> 
OF WEEK 

(SP) + 

(SP)+, RO 



GET CURRENT DATE 

SAVE DATE 

LEFT JUSTIFY VALUE 

SHIFT OFF 5 BITS 

INTO Rl 

SHIFT MONTH VALUE INTO Rl 

;LOOP IF MORE BITS TO SHIFT 

iGET MONTH VALUE IN RANGE 0-11 
iSAVE MONTH VALUE 

GET THE ORIGINAL DATE VALUE 
CLEAR ALL BUT YEAR FIELD 
YEAR # IS RELATIVE TO 1972 
PRINT YEAR VALUE 
GET ORIGINAL DATE VALUE 
GET RID OF ALL BUT YEAR 
ADD BACK BASE YEAR 

BREAK INTO CENTURIES 
GET RIGHT CENTURY 
PRINT CENTURY 
PUT IN SEPARATOR 
PUT IN SEPARATOR 

)GET ORIGINAL DATE VALUE 
;GET 5 BITS OF DAY VALUE 

} SHIFT BITS INTO Rl 



i PRINT DAY-OF-MONTH 
; PUT IN SEPARATOR 

; GET MONTH INDEX 

i *2 

J POINT TO MONTH NAME 

POINT TO END OF THE MONTH NAME 

j PRINT NAME OF MONTH 

; GOT THE WHOLE NAME? 

iBR IF NOT 

i PUT IN SEPARATOR SPACE 



i ORIGINAL DATE FORMAT 



TSSPL2 
EDTDAT 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
86 
87 
88 



89 
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— Print the current date 
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90 

91 

92 
93 

94 

95 

96 



97 



98 



99 



002650 
002654 
002656 
002662 
002666 
002670 
002672 
002674 

002700 
002702 
002704 
002706 
002710 
002712 

002714 
002716 
002720 
002722 
002724 
002726 
002730 
002732 
002734 
002736 
002740 
002742 
002744 

002746 
002751 
002754 
002755 
002760 
002763 
002765 
002770 
002772 
002775 
002777 
003002 
003005 
003006 
003011 
003012 
003015 
003020 
003023 
003026 
003031 
003034 
003037 
003040 
003043 
003046 
003050 



004767 
006300 
016004 
016002 
114243 
020204 
101375 
112743 

012605 
012604 
012602 
012601 
012600 
000207 

002746 ' 
002755' 
002765 ' 
002772' 
002777 ' 
003002 ' 
003006 ' 
003012' 
003020 ' 
003031 ' 
003040' 
003050 ' 
003060 ' 

112 
165 
171 
106 
1 6i=. 
162 
115 
143 
101 
151 
115 
112 
145 
112 
171 
101 
165 
123 
164 
142 
117 
157 
169 
116 
145 
145 
104 



177452 

003060 ' 
003062 ' 



000040 



141 
141 

145 
165 
171 
141 
150 
160 
154 
141 
165 

165 

165 
163 
145 
145 
145 
143 
142 

157 
155 
162 

145 



156 
162 

142 

141 

162 

162 

171 
156 

154 

147 
164 
160 
155 
162 
164 
145 



4*: 



CALL DOW 

ASL RO 

MOV DAYTAB<R0),R4 

MOV DAYTAB+2 < RO ) , R2 

MOVB -(R2)i-(R3) 

CMP R2, R4 

BHI 4* 

MOVB #' ,-<R3) 

MOV (SP)+, R5 

MOV <SP)+, R4 

MOV (SP>+, R2 

MOV <SP)+, Ri 

MOV <SP)+, RO 
RETURN 

. WORD JANURY 

. WORD FEBURY 

. WORD MARCH 

. WORD APRIL 

. WORD MAY 

. WORD JUNE 

. WORD JULY 

. WORD AUGUST 

. WORD SPTMBR 

. WORD OCTOBR 

. WORD NVEMBR 

. WORD DCEMBR 

. WORD ENDMTB 



JANURY: ASCII /January/ 



GET DAY OF WEEK <0-6) 

DAY OF WEEK INDEX <ft2) 

POINT TO DAY OF WEEK 

POINT TO END OF THE MONTH NAME 

PRINT NAME OF MONTH 

GOT THE WHOLE NAME? 

BR IF NOT 

PUT IN SEPARATOR SPACE 

i RESTORE REGISTERS 



MONTAB: 



FEBURY: 

MARCH: 

APRIL: 

MAY: 
JUNE: 

JULY: 

AUGUST: 

SPTMBR: 

OCTOBR: 



166 NVEMBR: 
142 



ASCII /February/ 

ASCII /March/ 

ASCII /April/ 

ASCII /May/ 

ASCII /June/ 

ASCII /July/ 

ASCII /August/ 

ASCII /September/ 

ASCII /October/ 

ASCII /November/ 



143 DCEMBR: .ASCII /December/ 



I 
% 

c 

< 
« 

i 
€ 
I 

< 

t 

€ 

I 

i 

( 
K 
< 

I 



I 



TSSPL2 


T/S SPOOLER FLAG- 


-PAGE R 


MACRO V05. 05 Wednesdau 


18-Jan-S9 


EDTDAT 


— Prin 


t the current date 










003053 


145 


155 


142 










003056 


145 


162 










100 


003060 








ENDMTB: 




1 


101 
















102 


003060 


003100' 






DAYTAB: 


. WORD 


SUNDAY 


103 


003062 


003106' 








. WORD 


MONDAY 


104 


003064 


003114' 








. WORD 


TUESDY 


105 


003066 


003123' 








. WORD 


WDNSDY 


106 


003070 


003134' 








. WORD 


THRSDY 


107 


003072 


003144' 








. WORD 


FRIDAY 


108 


003074 


003152' 








. WORD 


SATRDY 


109 


003076 


003162' 








. WORD 


ENDDTB 


110 
















111 


003100 


123 


165 


156 


SUNDAY: 


. ASC 1 1 


/Sunday/ 




003103 


144 


141 


171 








112 


003106 


115 


157 


156 


MONDAY: 


. ASCII 


/Monday/ 




003111 


144 


141 


171 








113 


003114 


124 


165 


145 


TUESDY: 


. ASCII 


/Tuesday/ 




003117 


163 


144 


141 










003122 


171 












114 


003123 


127 


145 


144 


WDNSDY: 


. ASCII 


/Wednesday 




003126 


156 


145 


163 










003131 


144 


141 


171 








115 


003134 


124 


150 


165 


THRSDY: 


. ASC 1 1 


/Thursday/ 




003137 


162 


163 


144 










003142 


141 


171 










116 


003144 


106 


162 


151 


FRIDAY; 


. ASCII 


/Friday/ 




003147 


144 


141 


171 








117 


003152 


123 


141 


164 


SATRDY: 


. ASCII 


/Saturday/ 




003155 


165 


162 


144 










003160 


141 


171 










lis 


003162 








ENDDTB: 
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SETSTN — KMON emt to copy site 



i 
i 
I 
I 
i 

( 
I 
t 



1 

2 








3 








4 








5 


003162 


012701 


ooooooe 


6 


003166 


012702 


004314' 


7 


003172 


112122 




8 


003174 


003403 




9 


003176 


020227 


004372 ' 


10 


003202 


103773 




11 


003204 


005302 




12 


003206 


112712 


000200 


13 


003212 


162702 


004314' 


14 


003216 


010267 


001150 


15 


003222 


000167 


OOOOOOG 



MACRO V05. 05 Wednesday 
name into overlay 

. SBTTL 

i This is done 

i 

SETSTN: MOV 
MOV 

1*: MOVB 
BLE 
CMP 
BLO 

2*: DEC 
MOVB 
SUB 
MOV 
JMP 
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SETSTN — KMON emt to copy site name into overlay 

once only* during the first time TSKMON is initialized. 



#CSIBUF, Rl 

#SITNAM, R2 

<R1>+, <R2)+ 

2$ 

R2, #<SITNAM+46. 

1« 

R2 

#200> <R2) 

#SITNAM, R2 

R2, SITLEN 

EMTXIT 



i KMONCE has put decrypted site name here 

jCopy it into overlay here 

j Get next char 

iStop if NUL or terminating 200 

; Have we gone past end of buffer? 

Move entire site name if not 

Point back at terminating byte 

Always terminate with 200 

Calculate site name length 

And save it 

Done 



I 
f 

f 

c 
I 

I 
c 
I 

I 



i 
i 
I 



i 
( 
I 
c 
« 
I 
f 
f 
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i 
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( 
C 



TSSPL2 


T/S SPO 
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GTLICN - 


— Get site information EMT 


1 
2 








3 








4 








5 








6 








7 








8 


003226 


116700 


OOOOOOG 


9 


003232 


020027 


000002 


10 


003236 


103402 




11 


003240 


000167 


OOOOOOG 


12 


003244 


006300 




13 


003246 


000170 


003252 ' 


14 








15 








16 








17 


003252 


003256 ' 




18 


003254 


003270 •' 




19 




000002 




20 








21 








22 








23 








24 


003256 


016767 


OOOOOOG OOOOOOG 


25 


003264 


000167 


OOOOOOG 


26 






. 


27 








28 








29 








30 


003270 






31 


003270 


016702 


000002G 


32 


003274 


010200 




33 


003276 


004767 


OOOOOOG 


34 


003302 


012701 


004314' 


35 


003306 


016703 


001060 


36 


003312 


005203 




37 


003314 


006203 




38 


003316 


012146 




39 


003320 


106622 




40 


003322 


077303 




41 


003324 


016767 


001042 OOOOOOG 


42 


003332 


000167 


OOOOOOG 
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. SBTTL GTLICN — Get site information EMT 
The form of the argument block is: 



. BYTE 
. WORD 

GTLICN: MOVE 
CMP 
BLO 
JMP 

1*: ASL 
JMP 



n. 124 
RTNADR 

EMTBLK, RO 

RO, #GSFMAX 

1* 

SETC 

RO 

SGSFTBL<RO) 



in specifies subfunction 

; For site name only> user buffer addr 

j Get function code 

;Valid subfunction? 

;Br if OK 

i Return with error 

; Convert function code to table index 

i Jump into appropriate processing routine. 



Table of Get Site inFormation routines 

GSFTBL: . WORD GETLIC 

. WORD GETS IT 

GSFMAX = <. -GSFTBL>/2 



; 0» 124 Return site incremental license number 
; 1* 124 Return site license name 



Return site incremental license number to user in RO 



JMP 



TSXSIT>URO 
EMTXIT 



» Put license # in user's RO 



Return site name in user buffer 



GETSIT: 








MOV 


EMTBLK+2, R2 




MOV 


R2>R0 




CALL 


VALADW 




MOV 


#SITNAM, Rl 




MOV 


SITLEN, R3 




INC 


R3 




ASR 


R3 


1*: 


MOV 


<R1)+, -<SP) 




MTPD 


(R2) + 




SOB 


R3, 1* 




MOV 


SITLEN, URO 




JMP 


EMTXIT 



Get user buffer ptr !•! Word aligned .' ! .' 

Validate user buffer address 

User ptr must be word aligned (for MTPD's) 

Get ptr to site name 

How long is actual site name? 

Round up 

Convert to words 

Get next char from site name 

Return value to user 

Full site length 

Return string length in user RO 



i 

i 



I 
I 
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i 
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f 
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I 
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f 

i 
< 
i 
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28 
29 
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flag for device 

. SBTTL SPLSFF — Set or reset flagpage flag for device 

SPLSFF is called to set/reset the flagpage flag for a spooled device. 

Inputs: 
CHNNUM = User's channel number 
R2 = 0==>nof lagpage l==>flagpage 



003336 
003340 



003346 
003352 



003354 
003362 
003370 
003376 
003400 
003402 



003410 
003412 



010146 
012767 



004767 
103416 



016167 
042767 
052761 
005702 
001003 
042761 



012601 
000167 



SPLSFF; MOV 



OOOOOOG OOOOOOG 



000124 



R1>-(SP) 
#SD*RSV, URO 



MOV #SD*RSV/ URO ; Assume device is not spooled 
Find SDCB associated with this channel 



CALL 
BCS 



FNDSD 
9* 



i Locate SDCB associated with this channel 
; Br if cannot find the SDCB 



Set or reset the flag in the SDCB 



OOOOOOG 
OOOOOOC 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



MOV 
BIC 
BIS 
TST 
BNE 
BIC 

Finished 



9*: 



OOOOOOG 



MOV 
JMP 



SDFLA0<R1 ) * URO ; Get current flag values 

#-^CSD*FLGi URO » And return flag page status to user 

#SD*FLG> SDFLAG<R1 )i Assume we want to set the flag 

R2 'Do we want to reset the flag? 

9* ; Br if not 

#SD*FLG, SDFLAG(Rl)i Clear the hold flag 



<SP)+, Rl 
EMTXIT 



I 
f 



i 

i 
( 
I 
f 

€ 

i 
I 

I 
i 
I 
t 

C 

f 



f 



c 
i 
r 
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t 

( 
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( 

I 

i 
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SPLSWF 



3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
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— Set or reset wide flagpage flag for device 



SBTTL SPLSWF — Set or reset wide flagpage flag for device 

SPLSWF is called to set/reset the wide flagpage flag for a spooled 
device. 

Inputs: 
CHNNUli = User's channel number 
R2 = 0==>narrow flagpage l==>ujide flagpage 



003416 010146 

003420 012767 OOOOOOG OOOOOOG 



003426 004767 000044 
003432 103416 



003434 016167 OOOOOOG OOOOOOG 

003442 042767 OOOOOOC OOOOOOG 

003450 052761 OOOOOOG OOOOOOG 

003456 005702 

003460 001003 

003462 042761 OOOOOOG OOOOOOG 



003470 012601 

003472 000167 OOOOOOG 



SPLSWF: MOV 



R 1 , - < SP ) 
#SD*RSV, URO 



MOV #SD*RSV, URO i Assume the device is not spooled 
Find SDCB associated with this channel 



CALL 
BCS 



FNDSD 
9* 



> Locate SDCB associated with this channel 
; Br if cannot find the SDCB 



Set or reset the flag in the SDCB 



9*: 



MOV 
BIC 
BIS 
TST 
BNE 
BIC 

Finished 

MOV 
JMP 



SDFLAG<R1>* URO i Get current flag settings 
#"-CSD*WID> URO iAnd return current width to user 
#SD*WID, SDFLAG<Rl)i Assume we want to set the flag 
R2 i Do we want to reset the flag? 

9* i Br if not 

#SD*WID.SDFLAG<Rl)i Clear the hold flag 



<SP)+,R1 
EMTXIT 



€ 
I 

f 

« 

I 
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4 
( 
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i 



I 

f 



TSSPL2 
FNDSD 
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— Locate SDCB for spooled channel 



« 

f 

I 

f 

I 

f 

i 
i 
I 
I 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



. SBTTL FNDSD — Locate SDCB for spooled channel 

FNDSD is called to locate the SDCB associated with the current I/O channel. 

Inputs: 
CHNNUM = User channel number. 
CDRUSR = Job index number 

Outputs: 
C-flag cleared if SDCB found,- set otherwise. 
Rl = Address of SDCB. 



126762 OOOOOOG OOOOOOG 



003476 010246 

003500 016702 OOOOOOG 

003504 020267 OOOOOOG 

003510 103013 

003512 126762 OOOOOOG OOOOOOG 

003520 001004 

00352; 

003530 001405 

003532 062702 OOOOOOG 

003536 000762 



003540 000261 

003542 000403 

003544 000241 

003546 016201 

003552 012602 

003554 000207 



FNDSD: MOV 



R2, -<sp; 



i SAVE R2 



OOOOOOG 



MOV 
4*: CMP 

BHIS 

CMPB 

BNE 

CMPB 

BEQ 
2*: ADD 

BR 

; Can't find SFCB. 
1*: SEC 

BR 5* 
; Found the SFCB. So get SDCB 
3*: CLC 

MOV SFSDCB<R2),R1 



SFCB,R2 ; POINT TO 1ST SFCB 

R2, SFCBND i CHECKED ALL SFCB'S? 

1* ;BR IF YES 

CORUSR, SFUSER<R2)i IS THIS SFCB IN USE BY THIS USER? 

2* iBR IF NOT 

CHNNUM. SFCHAN(R2)i IS SFCB ASSIGNED TO THIS CHANNEL? 



3* 

#SFCBSZ, R2 
4* 



; BR IF YES 

i POINT TO NEXT SFCB 

;G0 CHECK IT 

; SIGNAL ERROR ON RETURN 



i SIGNAL SUCCESS ON RETURN 
iGET SDCB 



5*: 



MOV 
RETURN 



<SP)+, R2 



} RESTORE R2 



i 
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1 




2 




3 


003556 


4 


003556 


5 


003556 


6 


003556 


7 


003556 


8 


003556 


9 


003556 


10 


003556 


11 


003556 


12 


003556 


13 


003563 


14 


003563 


15 


003563 


16 


003563 


17 


003563 


IS 


003563 


19 


003563 


20 


003563 


21 


003563 


22 


003570 


23 


003570 


24 


003570 


25 


003570 


26 


003570 


27 


003570 


28 


003570 


29 


003570 


30 


003570 


31 


003575 


32 


003575 


33 


003575 


34 


003575 


35 


003575 


36 


003575 


37 


003575 


38 


003575 


39 


003575 


40 


003602 


41 


003602 


42 


003602 


43 


003602 


44 


003602 


45 


003602 


46 


003602 


47 


003602 


48 


003602 


49 


003607 


50 


003607 


51 


003607 


52 


003607 


53 


003607 


54 


003607 


55 


003607 


56 


003607 


57 


003607 
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SBTTL 5X7 Character tables 



CHRTBL: 






BEG INC 






LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


ENDCHR 






BEG INC 






LINE 


< f 


! > 


LINE 


< ! 


! > 


LINE 


< f 


! > 


LINE 


< ! 


! > 


LINE 


< ! 


! > 


LINE 


< 


> 


LINE 


< ! 


! > 


ENDCHR 






BEG INC 






LINE 


<•"• 


II II "%. 


LINE 


< " 


"> 


LINE 


<" 


" > 


LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


ENDCHR 






BEG INC 






LINE 


< # 


# > 


LINE 


< # 


» > 


LINE 


<#####> 


LINE 


< # 


# > 


LINE 


<#####> 


LINE 


< # 


# > 


LINE 


< # 


# > 


ENDCHR 






BEG INC 






LINE 


< «** > 


LINE 


<* * 


*> 


LINE 


<« * 


> 


LINE 


< *** > 


LINE 


< * 


*> 


LINE 


<« * 


*> 


LINE 


< *** > 


ENDCHR 






BEG INC 






LINE 


<■/.•/. 


"/.> 


LINE 


<7.y. 


y.y 


LINE 


< 


v. y 


LINE 


< "/. 


y 


LINE 


< 7. 


y 


LINE 


<•/. 


Y.'/.y 


LINE 


<■/. 


y.-/.y 


ENDCHR 







I 

i 

i 



I 
< 
f 

i 
i 
I 
I 



i 
t 
I 

( 
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4 
I 
t 



58 


003614 


59 


003614 


60 


003614 


61 


003614 


62 


003614 


63 


003614 


64 


003614 


65 


003614 


66 


003614 


67 


003621 


68 


003621 


69 


003621 


70 


003621 


71 


003621 


72 


003621 


73 


003621 


74 


003621 


75 


003621 


76 


003626 


77 


003626 


78 


003626 


79 


003626 


80 


003626 


81 


003626 


82 


003626 


S3 


003626 


84 


003626 


85 


003633 


86 


003633 


87 


003633 


88 


003633 


89 


003633 


90 


003633 


91 


003633 


92 


003633 


93 


003633 


94 


003640 


95 


003640 


96 


003640 


97 


003640 


98 


003640 


99 


003640 


100 


003640 


101 


003640 


102 


003640 


103 


003645 


104 


003645 


105 


003645 


106 


003645 


107 


003645 


108 


003645 


109 


003645 


110 


003645 


111 


003645 


112 


003652 


113 


003652 


114 


003652 



BEG INC 






LINE 


< 


&& > 


LINE 


<& 


& > 


LINE 


<& 


& > 


LINE 


< 


8c &&:> 


LINE 


<& 


it &> 


LINE 


<& 


& > 


LINE 


< 


8<& &> 


ENDCHR 






BEGINC 






LINE 


< 


' ' > 


LINE 


< 


" > 


LINE 


< 


•• •' > 


LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


LINE 


< 


> 


ENDCHR 






BEGINC 






LINE 


< 


( > 


LINE 


< 


< > 


LINE 


<( 


> 


LINE 


<( 


> 


LINE 


<< 


> 


LINE 


<. 


( > 


LINE 


< 


< > 


ENDCHR 






BEGINC 






LINE 


< 


) > 


LINE 


< 


> > 


LINE 


< 


)> 


LINE 


< 


)> 


LINE 


< 


)> 


LINE 


< 


) > 


LINE 


< 


) > 


ENDCHR 






BEGINC 






LINE 


< 


* > 


LINE 


<* 


# *> 


LINE 


< 


»*» > 


LINE 


<##**#> 


LINE 


< 


##» > 


LINE 


<* 


* *> 


LINE 


< 


* > 


ENDCHR 






BEGINC 






LINE 


< 


+ > 


LINE 


< 


+ > 


LINE 


< 


+ > 


LINE 


<+++++> 


LINE 


< 


+ > 


LINE 


< 


+ > 


LINE 


'v 


+ > 


ENDCHR 






BEGINC 






LINE 


< 


> 


LINE 


< 


> 






4 

< 

I 

f 
I 

I 

i 

t 

I 

c 



t 



i 

f 

I 
f 
i 
e 
i 
i 
€ 
I 

€ 
I 

( 

i 
I 
I 
i 

♦ 
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115 


003652 


116 


003652 


117 


003652 


lie 


003652 


119 


003652 


120 


003652 


121 


003657 


122 


003657 


123 


003657 


124 


003657 


125 


003657 


126 


003657 


127 


003657 


128 


003657 


129 


003657 


130 


003664 


131 


003664 


132 


003664 


133 


003664 


134 


003664 


135 


003664 


136 


003664 


137 


003664 


138 


003664 


139 


003671 


140 


003671 


141 


003671 


142 


003671 


143 


003671 


144 


003671 


145 


003671 


146 


003671 


147 


003671 


148 


003676 


149 


003676 


150 


003676 


151 


003676 


152 


003676 


153 


003676 


154 


003676 


155 


003676 


156 


003676 


157 


003703 


158 


003703 


159 


003703 


160 


003703 


161 


003703 


162 


003703 


163 


003703 


164 


003703 


165 


003703 


166 


003710 


167 


003710 


168 


003710 


169 


003710 


170 


003710 


171 


003710 



LINE 

LINE 

LINE 

LINE 

LINE 

ENDCHR 

BEG INC 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

ENDCHR 

BEG INC 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

ENDCHR 

BEG INC 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

ENDCHR 

BEG INC 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

ENDCHR 

BEG INC 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

ENDCHR 

BEG INC 

LINE 

LINE 

LINE 

LINE 

LINE 



I > 
> I 



< 
<- 



< 



> 

J' 
> 
> 

"V. 



> 
> 
■i. 



^ 



> 

> 



> 

-V. 



< /> 

< / > 

< / y 

< / y 
</ y 

< y 



< 000 > 

<o o> 
<o oo> 
<:o o> 
<oo o> 
<o o> 

< 000 > 



< 1 

< 11 



<i 



> 
> 



<iiiii> 



< 222 > 
<2 2> 

< 2 > 

< 2 > 
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172 


003710 


173 


003710 


174 


003710 


175 


003715 


176 


003715 


177 


003715 


178 


003715 


179 


003715 


180 


003715 


181 


003715 


182 


003715 


183 


003715 


184 


003722 


185 


003722 


186 


003722 


187 


003722 


188 


003722 


189 


003722 


190 


003722 


191 


003722 


192 


003722 


193 


003727 


194 


003727 


195 


003727 


196 


003727 


197 


003727 


198 


003727 


199 


003727 


200 


003727 


201 


003727 


202 


003734 


203 


003734 


204 


003734 


205 


003734 


206 


003734 


207 


003734 


208 


003734 


209 


003734 


210 


003734 


211 


003741 


212 


003741 


213 


003741 


214 


003741 


215 


003741 


216 


003741 


217 


003741 


218 


003741 


219 


003741 


220 


003746 


221 


003746 


222 


003746 


223 


003746 


224 


003746 


225 


003746 


226 


003746 


227 


003746 


228 


003746 



LINE 


<2 > 


LINE 


<22222> 


ENDCHR 




BEG INC 




LINE 


< 333 > 


LINE 


<3 3> 


LINE 


< 3> 


LINE 


< 33 > 


LINE 


< 3> 


LINE 


<3 3> 


LINE 


< 333 > 


ENDCHR 




BEG INC 




LINE 


< 4 > 


LINE 


< 44 > 


LINE 


< 4 4 > 


LINE 


<44444> 


LINE 


< 4 > 


LINE 


< 4 > 


LINE 


< 4 > 


ENDCHR 




BEGINC 




LINE 


<55555> 


LINE 


<5 > 


LINE 


<;5 > 


LINE 


<5555 > 


LINE 


< 5> 


LINE 


<5 5> 


LINE 


< 555 > 


ENDCHR 




BEGINC 




LINE 


< 666 > 


LINE 


<6 > 


LINE 


<6 > 


LINE 


<6666 > 


LINE 


<6 6> 


LINE 


<6 6> 


LINE 


< 666> 


ENDCHR 




BEGINC 




LINE 


<77777> 


LINE 


< 7> 


LINE 


< 7 > 


LINE 


< 7 > 


LINE 


< 7 > 


LINE 


<7 > 


LINE 


<7 > 


ENDCHR 




BEGINC 




LINE 


< 888 > 


LINE 


<8 8> 


LINE 


<S 8> 


LINE 


< 888 > 


LINE 


<8 S> 


LINE 


<8 8> 


LINE 


< 888 > 


ENDCHR 
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229 


003753 


230 


003753 


231 


003753 


232 


003753 


233 


003753 


234 


003753 


235 


003753 


236 


003753 


237 


003753 


238 


003760 


239 


003760 


240 


003760 


241 


003760 


242 


003760 


243 


003760 


244 


003760 


245 


003760 


246 


003760 


247 


003765 


248 


003765 


249 


003765 


250 


003765 


251 


003765 


252 


003765 


253 


003765 


254 


003765 


255 


003765 


256 


003772 


257 


003772 


258 


003772 


259 


003772 


260 


003772 


261 


003772 


262 


003772 


263 


003772 


264 


003772 


265 


003777 


266 


003777 


267 


003777 


268 


003777 


269 


003777 


270 


003777 


271 


003777 


272 


003777 


273 


003777 


274 


004004 


275 


004004 


276 


004004 


277 


004004 


278 


004004 


279 


004004 


280 


004004 


281 


004004 


282 


004004 


283 


004011 


284 


004011 


285 


004011 



BEGIh4C 






LINE 


< 


999 > 


LINE 


<9 


9> 


LINE 


<9 


9> 


LINE 


< 


9999> 


LINE 


< 


9> 


LINE 


< 


9> 


LINE 


< 


999 > 


ENDCHR 






BEG INC 






LINE 


< 


> 


LINE 


< 


: : > 


LINE 


< 


: : > 


LINE 


< 


> 


LINE 


< 


: : > 


LINE 


< 


: : > 


LINE 


< 


> 


ENDCHR 






BEG INC 






LINE 


< 


> 


LINE 


< 


i i > 


LINE 


< 


i i > 


LINE 


< 


> 


LINE 


< 


f J > 


LINE 


< 


; ; > 


LINE 


< 


i i > 


ENDCHR 






BEG INC 






LINE 


< 


<> 


LINE 


< 


( > 


LINE 


< 


< > 


LINE 


< 


( > 


LINE 


< 


< > 


LINE 


< 


( > 


LINE 


< 


<> 


ENDCHR 






BEG INC 






LINE 


< 


> 


LINE 


< 


> 


LINE 


<= 


=s=as=> 


LINE 


< 


> 


LINE 


<= 


====> 


LINE 


< 


> 


LINE 


< 


> 


ENDCHR 






BEG INC 






LINE 


<C) 


> 


LINE 


< 


) > 


LINE 


< 


) > 


LINE 


< 


) > 


LINE 


< 


) > 


LINE 


< 


) > 


LINE 


<) 


> 


ENDCHR 






BEG INC 






LINE 


< 


??? > 


LINE 


<? ?> 



i 
i 

I 

I 
c 
< 

f 
I 
I 

€ 
t 

i 
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i 
i 

( 

I 

i 
t 
t 
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I 



286 


004011 


287 


004011 


288 


004011 


289 


004011 


290 


004011 


291 


004011 


292 


004016 


293 


004016 


294 


004016 


295 


004016 


296 


004016 


297 


004016 


298 


004016 


299 


004016 


300 


004016 


301 


004023 


302 


004023 


303 


004023 


304 


004023 


305 


004023 


306 


004023 


307 


004023 


308 


004023 


309 


004023 


310 


004030 


311 


004030 


312 


004030 


313 


004030 


314 


004030 


315 


004030 


316 


004030 


317 


004030 


318 


004030 


319 


004035 


320 


004035 


321 


004035 


322 


004035 


323 


004035 


324 


004035 


325 


004035 


326 


004035 


327 


004035 


328 


004042 


329 


004042 


330 


004042 


331 


004042 


332 


004042 


333 


004042 


334 


004042 


335 


004042 


336 


004042 


337 
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LINE 
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LINE 
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LINE 
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LINE 
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LINE 
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<@ €> 


LINE 


<e e> 


LINE 
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LINE 


<s > 


LINE 
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ENDCHR 




BEG INC 




LINE 


< A > 


LINE 


<: A A > 


LINE 


<A A> 


LINE 


<AAAAA> 


LINE 


<A A> 


LINE 


<A A> 


LINE 


<A A> 


ENDCHR 
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LINE 


<BBBB > 


LINE 


<B B> 


LINE 


<B B> 


LINE 


<BBBB> 


LINE 
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LINE 


<B B> 


LINE 


<BBBB> 


ENDCHR 




BEGINC 




LINE 
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LINE 
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LINE 
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LINE 


<C > 


LINE 
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LINE 
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LINE 
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ENDCHR 




BEGINC 




LINE 
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LINE 
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LINE 
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351 


004054 
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359 
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364 
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004066 
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379 
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381 
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004100 


383 


004100 
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004100 
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004100 
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004100 


387 


004100 


388 


004100 


389 


004100 


390 


004100 


391 


004105 


392 
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393 
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004105 


395 


004105 


396 


004105 


397 
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398 
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LINE 
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LINE 
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LINE 
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LINE 


<F > 


LINE 
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LINE 


<F > 


LINE 


<F > 


LINE 
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LINE 
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LINE 
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LINE 


<G > 


LINE 


<G GG> 


LINE 
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LINE 


<G G> 


LINE 
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ENDCHR 




BEG INC 




LINE 


<H H> 


LINE 


<H H> 


LINE 


<H H> 


LINE 


<HHHHH> 


LINE 


<H H> 


LINE 


<H H> 


LINE 


<H H> 


ENDCHR 




BEG INC 




LINE 


<IIIII> 


LINE 


< I > 


LINE 


< I > 


LINE 


< I > 


LINE 


< I > 


LINE 


< I > 


LINE 


<IIIII> 


ENDCHR 




BEG INC 




LINE 


< J> 


LINE 


< J> 


LINE 


< J> 


LINE 
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LINE 
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LINE 


<J J> 


LINE 
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400 


004112 


401 


004112 


402 


004112 


403 


004112 


404 


004112 


405 


004112 


406 


004112 


407 


004112 


408 


004112 


409 


004117 


410 


004117 


411 


004117 


412 


004117 


413 


004117 


414 


004117 


415 


004117 


416 


004117 


417 


004117 


418 


004124 


419 


004124 


420 


004124 


421 


004124 


422 


004124 


423 


004124 


424 


004124 


425 


004124 


426 


004124 


427 


004131 


428 


004131 


429 


004131 


430 


004131 


431 


004131 


432 


004131 


433 


004131 


434 


004131 


435 


004131 


436 


004136 


437 


004136 


438 


004136 


439 


004136 


440 


004136 


441 


004136 


442 


004136 


443 


004136 


444 


004136 


445 


004143 


446 


004143 


447 


004143 


448 


004143 


449 


004143 


450 


004143 


451 


004143 


452 


004143 


453 


004143 


454 


004150 


455 


004150 


456 


004150 



Wednesday 


IS-Jan- 


BEG INC 




LINE 


<L > 


LINE 


<L > 


LINE 


<L > 
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<L > 
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<L > 
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<L > 
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004155 
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004155 
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004155 


466 


004155 


467 


004155 


468 


004155 


469 


004155 
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004155 


471 


004155 


472 


004162 


473 


004162 
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004162 


475 


004162 
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004162 
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004162 
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004162 
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480 
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004220 
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004225 


540 


004225 
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599 
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600 
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602 
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608 
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628 004307 

629 004307 

630 004307 

631 004307 

632 004307 

633 004307 
634 

635 

636 004314 

637 000056 
638 

639 

640 004372 00C056 
641 
642 
643 

644 000001 

Errors detected: 





LINE 


<? ? ?> 




LINE 


< ? ? > 




LINE 


<? ? ?> 




LINE 


< ? ? > 




LINE 


<? ? ?> 




ENDCHR 






. EVEN 




SITNAM: 








. REPT 


46. 




. BYTE 


200 




. ENDR 




SITLEN: 


. WORD 
. EVEN 
. END 


. -SITNAM 



i ##« SITNAM must start on an even address »*# 
;Fill with end-of-string markers 



j Actually filled in uihen site name is set 



**« Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 8593 Words < 34 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT~11 



Elapsed time: 00:02:31.31 
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19-224# 


19-225 


19-225# 


19-226 


19-226# 


19-227 


19-227# 


19-230 


19-230# 


19-231 


19-231# 


19-232 


19-232# 


19-233 


19-233# 


19-234 


19-234# 


19-235 


19-235# 


19-236 


19-236# 


19-239 


19-239# 


19-240 


19-240# 


19-241 


19~241# 


19-242 


19-242# 


19-243 


19-243# 


19-244 


19-244# 


19-245 


19-245# 


19-248 


19-248# 


19-249 


19-249# 


19-250 


19-250# 


19-251 


19-251# 


19-252 


19-252# 


19-253 


19-253# 


19-254 


19-254# 


19-257 


19-257# 


19-258 


19-258# 


19-259 


19-259# 


19-260 


19-260# 


19-261 


19-261# 


19-262 


19-262# 


19-263 


19-263# 


19-266 


19-266# 


19-267 


19~267# 


19-268 


19-268# 


19-269 


19-269# 


19-270 


19-270# 


19-271 


19-271# 


19-272 


19-272# 


19-275 


19-275# 


19-276 


19-276# 


19-277 


19-277# 


19-278 


19-278# 


19-279 


19-279# 


19-280 


19-280# 


19-281 


19-281# 


1 9-284 


19-284# 


19-285 


19-285# 


19-286 


19-2S6# 


19-287 


19-287# 


19-288 


19-288# 


19-289 


19-289# 


19-290 


19-290# 


19-293 


19-293# 


19-294 


19-294# 


19-295 


19-295# 


19-296 


19-296# 


19-297 


19-297# 


19-298 


19-298# 


19-299 


19-299# 


19-302 


19-302# 


19-303 


19-303# 


19-304 


19-304# 


19-305 


19~305# 


19-306 


19-306# 


19-307 


19-307# 


19-308 


19-308# 


19-311 


19-31 1# 


19-312 


19-312# 


19-313 


19-313# 


19-314 


19-314# 


19-315 


19-315# 


19-316 


19-316# 


19-317 


19-317# 


19-320 


19-320# 


19-321 


1 9-321 # 


19-322 


19-322# 


19-323 


19-323# 


19-324 


19-324# 


19-325 


19-325# 


19-326 


19-326# 


19-329 


19-329# 


19-330 


19-330# 


19-331 


19-331# 


19-332 


19-332# 


19-333 


19-333# 


19-334 


1 9-334# 


19-335 


19-335# 


19-338 


19-33S# 


19-339 


19-339# 


19-340 


19-340# 


19-341 


19-341# 


19-342 


19-342# 


19-343 


19-343# 


19-344 


19-344# 


19-347 


19-347# 


19-348 


19-348# 


19-349 


19-349# 


19-350 


19-350# 


19-351 


19-3S1# 


19-352 


19-352# 


19-353 


19-353# 


19-356 


19-356# 


19-357 


19-357# 


19-358 


19-358# 


19-359 


19-359# 


19-360 


19-360# 


19-361 


19-361# 


19-362 


19-362# 


19-365 


19-365# 


19-366 


19-366# 


19-367 


19-367# 


19-368 


19-368# 


19-369 


19-369# 


19-370 


19-370# 


19-371 


19-371# 


19-374 


19-374# 


19-375 


19-375# 


19-376 


19-376# 


19-377 


19-377# 


19-378 


19-378# 


19-379 


19-379# 


19-380 


19-380# 


19-383 


19-3S3# 


19-384 


19-384# 


19-385 


19-385# 


19-386 


19-386# 


19-387 


19-387# 


19-388 


19-388# 


19-389 


19-3S9# 


19-392 


19-392# 


19-393 


19-393# 


19-394 


19-394# 


19-395 


19-395# 


19-396 


19-396# 


19-397 


19-397# 


19-398 


19-398# 


19-401 


19-401# 


19-402 


19-402# 


19-403 


19-403# 


19-404 


19-404# 


19-405 


19-405# 


19-406 


19-406# 


19-407 


19-407# 


19-410 


19-410# 


19-411 


19-41 1# 


19-412 


19-412# 


19-413 


19-413# 


19-414 


19-414# 


19-415 


19-415# 


19-416 


19-416# 


19-419 


19-419# 


19-420 


19-420# 
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c 

f 





19-421 


19-42i# 


19-422 


19-422# 


19-423 


19-423# 


19- 


-424 


19- 


-424# 


19- 


-425 


19-425# 


19-428 


19-42S# 




19-429 


19-429# 


19-430 


19-430# 


19-431 


19-431# 


19- 


-432 


19- 


-432# 


19- 


-433 


19~433# 


19-434 


19-434# 




19-437 


19-437# 


19-438 


19-43S# 


19-439 


19-439# 


19- 


-440 


19- 


-440# 


19- 


-441 


19-441# 


19-442 


19-442# 




19-443 


19-443# 


19-446 


19-446# 


19-447 


19-447# 


19- 


-448 


19- 


-448# 


19- 


-449 


19-449# 


19-450 


19-450# 




19-451 


19-451# 


19-452 


19-452# 


19-455 


19-4 5 5# 


19- 


-456 


19- 


-456# 


19- 


-457 


19-457# 


19-458 


i9-458# 




19-459 


19-459# 


19-460 


19-460# 


19-461 


19-461# 


19- 


-464 


19- 


-464# 


19- 


-465 


19-465# 


19-466 


19-466# 




19-467 


19-467# 


19-468 


19-468# 


19-469 


19-469# 


19- 


-470 


19- 


-470# 


19- 


-473 


19-473# 


19-474 


19-474# 




19-475 


19-475# 


19-476 


19-476# 


19-477 


19-477# 


19- 


-478 


19- 


-47S# 


19- 


-479 


19-479# 


19-482 


19-482# 




19-483 


19-483# 


19-484 


19-484# 


19-485 


19-4S5# 


19- 


-486 


19- 


-486# 


19- 


-487 


19-4S7# 


19-488 


I9-488# 




19-491 


19-491# 


19-492 


19-492# 


19-493 


19-493# 


19- 


-494 


19- 


-494# 


19- 


-495 


19-495# 


19-496 


19-496# 




19-497 


19-497# 


19-500 


19-500# 


19-501 


19-501# 


19- 


-502 


19- 


-502# 


19- 


-503 


19-503# 


19-504 


19-504# 




19-505 


19-505# 


19-506 


19-506# 


19-509 


19-509# 


19* 


-510 


19- 


-510# 


19- 


-511 


19-511# 


19-512 


19-512# 




19-513 


19-513# 


19-514 


19-514# 


19-515 


19-515# 


19- 


-518 


19- 


-518# 


19- 


-519 


19-519# 


19-520 


19-520# 




19-521 


19-521# 


19-522 


19-522# 


19-523 


19-523# 


19- 


-524 


19- 


-524# 


19- 


-527 


19-527# 


19-528 


19-528# 




19-529 


19-529# 


19-530 


19-530# 


19-531 


19-531# 


19- 


-532 


19- 


-532# 


19- 


-533 


19-533# 


19-536 


19-536# 




19-537 


19-537# 


19-538 


19-53S# 


19-539 


19-539# 


19- 


-540 


19- 


-540# 


19- 


-541 


19-541# 


19-542 


19-542# 




19-545 


19-545# 


19-546 


19-546# 


19-547 


19-547# 


19- 


-548 


19- 


-548# 


19- 


-549 


19-549# 


19-550 


19-550# 




19-551 


19-551# 


19-554 


19-554# 


19-555 


19-555# 


19- 


-556 


19- 


-556# 


19- 


-557 


19-557# 


19-558 


19-558# 




19-559 


19-559# 


19-560 


19-560# 


19-563 


19-563# 


19- 


-564 


19- 


-564# 


19- 


-565 


19-565# 


19-566 


19-566# 




19-567 


19-567# 


19-568 


19-568# 


19-569 


l9-569# 


19- 


-572 


19- 


-572# 


19- 


-573 


19-573# 


19-574 


19-574# 




19-575 


19-575# 


19-576 


19-576# 


19-577 


19-577# 


19- 


-578 


19- 


-578# 


19- 


-581 


19-5Si# 


19-582 


19-582# 




19-583 


19~5S3# 


19-584 


19-584# 


19-585 


19-5S5# 


19- 


-586 


19- 


-586# 


19- 


-587 


19-587# 


19-590 


19-590# 




19-591 


19-591# 


19-592 


19-592# 


19-593 


19-593# 


19- 


-594 


19- 


-594# 


19- 


-595 


19-595# 


19-596 


19-596# 




19-599 


19-599# 


19-600 


19-600# 


19-601 


19-601# 


19- 


-602 


19- 


-602# 


19- 


-603 


19-603# 


19-604 


19-604# 




19-605 


19-605# 


19-608 


19-608# 


19-609 


19-609# 


19- 


-610 


19- 


-610# 


19- 


-611 


19-611# 


19-612 


19-612# 




19-613 


19-613# 


19-614 


19-614# 


19-617 


19-617# 


19- 


-618 


19- 


-618# 


19- 


-619 


19-619# 


19-620 


19-620# 




19-621 


19-621# 


19-622 


19-622# 


19-623 


19-623# 


19- 


-626 


19- 


-626# 


19- 


-627 


19-627# 


19-628 


19-628# 




19-629 


19-629# 


19-630 


19-630# 


19-631 


19-631# 


19- 


-632 


19- 


-632# 












BORDER 


2-32 


2-135 


5-1 1# 


























CHARS 


6-48 


7-32# 




























CHNNUM 


1-90 


18-20 




























CHRTBL 


6-59 


19-3# 




























CNVDEC 


2-94 


2-99 


2-115 


3-1 1# 


8-16 


8-19 


8- 


-22 


13- 


-26 


13" 


-33 


13-43 






CNVR50 


2-75 


2-77 


4-9# 


























CORUSR 


1-90 


18-18 




























CSIBND 


1-87 


5-66 




























CSIBUF 


1-87 


2-17 


5-70 


14-5 
























DAY* 


10-5# 


11-25 




























DAYTAB 


13-60 


13-61 


13-102# 


























DCEMBR 


13-85 


13-99# 




























DIVIDE 


8-13 


8-15 


8-18 


9-8# 
























DOW 


12-8# 


13-58 




























EDTDAT 


2-132 


13-6# 




























EDTTOD 


2-133 


8-6# 




























EMTBLK 


1-92 


15-8 


15-31 


























EMTXIT 


1-89 


14-15 


15-25 


15-42 


16-29 


17-30 




















ENDDTB 


13-109 


13-1 18# 




























ENDMTB 


13-86 


13-100# 




























FEBURY 


13-75 


13-89# 




























FLOP AG 


1-89 


2-10# 




























FNDSD 


16-14 


17-15 


18-13# 


























FRIDAY 


13-107 


13-116# 




























GCHROF 


6-47 


7-ll# 




























GETLIC 


15-17 


15-24# 




























GETS IT 


15-18 


15-30# 




























GSFMAX 


15-9 


15-19# 
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GSFTBL 


15-13 


15-17# 


15-19 








GTLICN 


1-92 


15-8# 










JANURY 


13-74 


13-S8# 










JULIAN 


11 -8# 


12-11 










JULY 


13-80 


13-94# 










JUNE 


13-79 


13-93# 










LEAP 


10-32# 


11-16 










LINEND 


2-117 


2-151# 










LINSTR 


2-119 


2-1 50# 










LPROG 


1-88 


2-88 










LPROJ 


1-88 


2-98 










LUNAME 


1-88 


2-45 










MARCH 


13-76 


13-90# 










MAY 


13-78 


13-92# 










MONDAY 


13-103 


13-1 12# 










MONTAB 


13-48 


13-49 


13-74# 








MONTH* 


10-6# 












NVEMBR 


13-84 


13-9S# 










OCTOBR 


13-83 


13-97# 










OVRHC 


2-140 


5-69 










PRTBUF 


2-64 


2-80 


2-103 


2-122 


6- 


-12# 


R50TBL 


4-21 


4-24 


4-27 


4-33# 






SATRDY 


13-108 


13-1 17# 










SD*FLG 


1-91 


16-20 


16-21 


16-24 






SD*RSV 


1-87 


16-10 


17-11 








SD*WID 


1-87 


1-91 


2-18 


17-21 


17- 


-22 


SDFLAG 


1-S7 


1-91 


2-lS 


16-19 


16- 


-21* 


SETC 


1-92 


15-11 










SETSTN 


1-89 


14-5# 










SFCB 


1-90 


18-15 










SFCBND 


1-90 


18-16 










SFCBSZ 


1-91 


18-22 










SFCHAN 


1-90 


18-20 










SFFILE 


1-88 


2-74 


2-76 








SFLGPG 


1-88 


2-140 


5-69 








SFSDCB 


1-91 


18-29 










SFUSER 


1-87 


1-90 


2-40 


2-86 


2- 


-113 


SITLEN 


2-30 


14-14* 


15-35 


15-41 


19- 


-640# 


SITNAM 


1-87 


2-31 


14-6 


14-9 


14- 


■13 


SPACE 


1-16# 












SPLSFF 


1-91 


16-9# 










SPLSWF 


1-92 


17-10# 










SPTMBR 


13-82 


13-96# 










STREND 


5-24 


5-47 


5-74# 








SUNDAY 


13-102 


13-111# 










SYSDAT 


1-89 


13-11 










SYTIMH 


1-88 


8-10 










SYTIML 


1-89 


8-11 










THRSDY 


13-106 


13-1 15# 










TKISEC 


1-89 


8-12 










TSSPL2 


1-12# 












TSTEND 


5-23 


5-35 


5-42 


5-46 


5- 


■66# 


TSXSIT 


1-92 


15-24 










TSXSTR 


5-20 


5-26 


5-49 


5-73# 






TUESDY 


13-104 


13-1 13# 










URO 


1-92 


1 5-24# 


15-41* 


16-10* 


16- 


•19* 



18-18 

15-34 19-636# 19-640 



17-25 

16-24* 17-20 17-22* 17-25* 
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i 

€ 

I 
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I 

6-38 6-57 6-105 I 

i 

16-20* 17-11* 17-20* 17-21* 
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VALADW 1-92 15-33 

WDNSD Y 13-105 1 3- 1 1 4# 

YEAR* 10-4# 10-41 12-14 13-28 
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BFCINC 1-21# 


19-4 


19-13 


19-22 


19-31 


19-40 


19-49 


19-58 


19-67 


19-76 


19-85 


19-94 


Jkl ^^lr \T JL 1 MAaf •• 1^ W •• 

19-103 


19-112 


19-121 


19-130 


19-139 


19-148 


19-157 


19-166 


19-175 


19-184 


19-193 


19-202 


19-211 


1 9-220 


19-229 


19-238 


19-247 


19-256 


19-265 


19-274 


19-283 


19-292 


19-301 


19-310 


i9_3i9 


1 9-328 


19-337 


19-346 


19-355 


19-364 


19-373 


19-382 


19-391 


19-400 


19-409 


19-418 


19-427 


19-436 


19-445 


19-454 


19-463 


19-472 


19-481 


19-490 


19-499 


19-508 


19-517 


19-526 


19-535 


19-544 


19-553 


19-562 


19-571 


19-580 


19-589 


19-598 


19-607 


19-616 


19-625 




DOOR l-37# 

ENDCHR l-64# 

19-111 


19-12 


19-21 


19-30 


19-39 


19-48 


19-57 


19-66 


19-75 


19-84 


19-93 


19-102 


19-120 


19-129 


19-138 


19-147 


19-156 


19-165 


19-174 


19-183 


19-192 


19-201 


19-210 


A / AAA 

19-219 


19-228 


19-237 


19-246 


19-255 


19-264 


19-273 


19-282 


19-291 


19-300 


19-309 


19-318 


A # Gi> A / 

i 9-327 


19-336 


19-345 


19-354 


19-363 


19-372 


19-381 


19-390 


19-399 


19-408 


19-417 


19-426 


A ' *JCi. ^ 

19-435 


19-444 


19-453 


19-462 


19-471 


19-480 


19-489 


19-498 


19-507 


19-516 


19-525 


19-534 


1 9-543 


19-552 


19-561 


19-570 


19-579 


19-588 


19-597 


19-606 


19-615 


19-624 


19-633 




A / sj^xj 

LINE l-47# 
19-18 


19-5 


19-6 


19-7 


19-8 


19-9 


19-10 


19-11 


19-14 


19-15 


19-16 


19-17 


19-19 


19-20 


19-23 


19-24 


19-25 


19-26 


19-27 


19-28 


19-29 


19-32 


19-33 


19-34 


19-35 


19-36 


19-37 


19-38 


19-41 


19-42 


19-43 


19-44 


19-45 


19-46 


19-47 


A r w»^ 

19-50 


19-51 


19-52 


19-53 


19-54 


19-55 


19-56 


19-59 


19-60 


19-61 


19-62 


19-63 


J 9-^4 


19-65 


19-68 


19-69 


19-70 


19-71 


19-72 


19-73 


19-74 


19-77 


19-78 


19-79 


19_QQ 


19-81 


19-82 


19-83 


19-86 


19-87 


19-88 


19-89 


19-90 


19-91 


19-92 


19-95 


J 9-96 


1 9-97 


19-98 


19-99 


19-100 


19-101 


19-104 


19-105 


19-106 


19-107 


19-108 


19-109 


19-110 


19-113 


19-114 


19-115 


19-116 


19-117 


19-118 


19-119 


19-122 


19-123 


19-124 


19-125 


X f A A ^^ 

19-126 


19-127 


19-128 


19-131 


19-132 


19-133 


19-134 


19-135 


19-136 


19-137 


19-140 


19-141 


i9-i42 


19-143 


19-144 


19-145 


19-146 


19-149 


19-150 


19-151 


19-152 


19-153 


19-154 


19-155 


A / A T^ tS-. 

19-158 


19-159 


19-160 


19-161 


19-162 


19-163 


19-164 


19-167 


19-168 


19-169 


19-170 


19-171 


19-172 


19-173 


19-176 


19-177 


19-178 


19-179 


19-180 


19-181 


19-182 


19-185 


19-186 


19-187 


A r A * ^ 

19_igQ 


19-189 


19-190 


19-191 


19-194 


19-195 


19-196 


19-197 


19-198 


19-199 


19-200 


19-203 


19-204 


19-205 


19-206 


19-207 


19-208 


19-209 


19-212 


19-213 


19-214 


19-215 


19-216 


19-217 


A f ».^rf^ 

19-218 


19-221 


19-222 


19-223 


19-224 


19-225 


19-226 


19-227 


19-230 


19-231 


19-232 


19-233 


19-234 


19-235 


19-236 


19-239 


19-240 


19-241 


19-242 


19-243 


19-244 


19-245 


19-248 


19-249 


19-250 


19-251 


19-252 


19-253 


19-254 


19-257 


19-258 


19-259 


19-260 


19-261 


19-262 


19-263 


19-266 


19-267 


19-268 


19-269 


19-270 


19-271 


19-272 


19-275 


19-276 


19-277 


19-278 


19-279 


19-280 


19-281 


19-284 


19-285 


19-286 


19-287 


19-288 


19-289 


19-290 


19-293 


19-294 


19-295 


19-296 


19-297 


19-298 


19-299 


19-302 


19-303 


19-304 


19-305 


19-306 


19-307 


19-308 


19-311 


19-312 


19-313 


19-314 


19-315 


19-316 


19-317 


19-320 


19-321 


19-322 


19-323 


19-324 


19-325 


19-326 


19-329 


19-330 


19-331 


19-332 


19-333 


19-334 


19-335 


19-338 


19-339 


19-340 


19-341 


19-342 


19-343 


19-344 


19-347 


19-348 


19-349 


19-350 


19-351 


19-352 


19-353 


19-356 


19-357 
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19-358 


19-359 


19-360 


19-361 


19-362 


19-365 


19-366 


19-367 


19-368 


19-369 


19-370 


19-371 
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1 9-374 


19-375 


19-376 


19-377 


19-378 


19-379 


19-380 


19-383 


19-384 


19-385 


19-386 


19-387 


19-333 


1 9-389 


19-392 


19-393 


19-394 


19-395 


19-396 


19-397 


19-398 


19-401 


19-402 


19-403 


1 9-404 


19-405 


19-406 


19-407 


19-410 


19-411 


19-412 


19-413 


19-414 


19-415 


19-416 


19-419 


19-420 


19-421 


19-422 


19-423 


19-424 


19-425 


19-428 


19-429 


19-430 


19-431 


19-432 


19-433 


19-434 


19-437 


19-438 


19-439 


19-440 


19-441 


19-442 


19-443 


19-446 


19-447 


19-448 


19-449 


19-450 


19-451 


19-452 


19-455 


19-456 


19-457 


19-458 


19-459 


19-460 


19-461 


19-464 


19-465 


19-466 


19-467 


19-468 


19-469 


19-470 


19-473 


19-474 


19-475 


19-476 


19-477 


19-478 


19-479 


19-482 


19-483 


19-484 


19-485 


19-486 


19-487 


19-488 


19-491 


19-492 


19-493 


19-494 


19-495 


19-496 


19-497 


19-500 


19-501 


19-502 


19-503 


19-504 


19-505 


19-506 


19-509 


19-510 


19-511 


19-512 


19-513 


19-514 


19-515 


19-518 


19-519 


19-520 


19-521 


19-522 


19-523 


19-524 


19-527 


19-528 


19-529 


19-530 


19-531 


19-532 


19-533 


19-536 


19-537 


19-538 


19-539 


19-540 


19-541 


19-542 


19-545 


19-546 


19-547 


19-548 


19-549 


19-550 


19-551 


19-554 


19-555 


19-556 


19-557 


19-558 


19-559 


19-560 


19-563 


19-564 


19-565 


19-566 


19-567 


19-568 


19-569 


19-572 


19-573 
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19-574 


19-575 


19-576 


19-577 


19-578 


19-581 


19-582 


19-583 


19-584 


19-585 


19-586 


19-587 


19-590 


19-591 


19-592 


19-593 


19-594 


19-595 


19-596 


19-599 


19-600 


19-601 


19-602 


19-603 


1 9-604 


19-605 


19-608 


19-609 


19-610 


19-611 


19-612 


19-613 


19-614 


19-617 


19-618 


19-619 


19-620 


19-621 


19-622 


19-623 


19-626 


19-627 


19-628 


19-629 


19-630 


19-631 


1 9-632 
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